Quero acessar um banco de dados com senha sem o datacontrol. Como faço

 

Muito obrigado.

DAO
Sub DAOAbrirBDProtegido()
  Dim DB As DAO.Database

  'O parâmetro pwd (q é a senha - 4o parâmetro) é case
  'sensitive (diferencia A de a) e - ao contrário do que
  'diz a documentação do VB - os parâmetros exclusive e
  'read-only (2o e 3o parâmetros) devem ser falsos.
  Set DB DBEngine.OpenDatabase(App.Path & "SeuBD.MDB", _
         False, False, ";pwd=senha")
  DB.Close
End Sub

ADO
Sub ADOAbrirBDProtegido()
  Dim CNN As New ADODB.Connection
  CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & App.Path &"SeuBD.MDB;Jet " & _
           "OLEDB:Database Password=senha;"
  CNN.Close
End Sub

fonte: http://www.vbweb.com.br/dicas_visual.asp?Codigo=38&Classificacao=

 

t+

no lugar da senha pode ser um textbox que receberá o valor do usuario.

sim colega exemplo:

 

CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & App.Path &"SeuBD.MDB;Jet " & _
           "OLEDB:Database Password=" & txtsenha & ";"

 

t+