Bom dia, uso a conexão: Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\SERVERMISTERLANBD.mdb;Persist Security Info=False;Jet OLEDB:Database Password=db"

gostaria de saber como faço para acrescentar o usuário e a senha do servidor nesta conexão. agradeço qualquer ajuda. (windows 2000 server).

a minha conexao faço assim

 

Public Sub ConectarBd()
'On Error GoTo final
Dim sPath As String

Set cnBd = New ADODB.Connection
cnBd.CursorLocation = adUseClient

sPath = App.Path & "Bdimobiliaria.mdb"
cnBd.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & App.Path & "Bdimobiliaria.MDB;Jet " & _
          "OLEDB:Database Password=123456;"

Screen.MousePointer = 0
Exit Sub
final:
MsgBox Err.Description, vbInformation, Err.Number
End Sub

Korn, obrigado por responder,    mas    já tenho na conexão a senha do banco de dados que é BD,   agora preciso colocar a senha de acesso ao servidor.  

pq vc nao cria uma tabela com o  nome e senha dos usuarios no MDB e cria uma tela de login, assim so se conecta a MDB se tiver cadastrado............

Alfterra, boa noite   obrigado por ter respondido. é que criei um sofware para gerenciar a minha Lan e fiz um teste deixando o servidor com windows 2000 server.      e toda hora que a estação tenta acessar o servidor, o servidor pede o id e a senha para autorizar,     e então fiquei pensando que consegueria colocar esta senha na conexão. será que o vb tem esta condição?     abraços.