Olá pessoal,
Estou com um problema: o código abaixo está em uma aplicação e ao ser executado somente funciona quando o usuário e a senha são de administrador, para os demais usuários ele apresenta o erro que não foi possível conectar ao banco, porém não consegui encontrar erro no código, será que vocês podem me ajudar?
Obrigada

Public Function AbreBanco() As Boolean

Set db = New ADODB.Connection
  db.Provider = "sqloledb"
  db.Properties("Data Source").Value = "CPD4"
  db.Properties("Initial Catalog").Value = "SCEVF"
  db.Properties("User ID").Value = Trim(FrmLogin.txtUserName.Text)
  db.Properties("Password").Value = Trim(FrmLogin.txtPassword.Text)
  db.Open

AbreBanco = True
Exit Function
End Function

Qual o banco de dados vc está usando ?

 

 

O erro acontece com SQL Server, quando exportei os dados para o Access o problema não ocorreu! O teste foi feito com vário usuários e somente o administrador consegue executar sem erros!