• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• This Code help you to connect MS-Access 2003 password protected database using ADO object in Visual

This Code help you to connect MS-Access 2003 password protected database using ADO object in Visual

This Code help you to connect MS-Access 2003 password protected database using ADO object in Visual Basic 6.

API Declarations


Dim AdoPassword As String
Dim AdoDatabasePath As String



Rate This Code help you to connect MS-Access 2003 password protected database using ADO object in Visual

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

  AdoDatabasePath = "c:\pok.mdb"

  '*** DATABASE PASSWORD ***
  AdoPassword = "123"
   
  'CONNECTION STRING
  scon = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;" & _
          "User ID=Admin;Data Source=" & AdoDatabasePath & ";" & _
          "Jet OLEDB:Database Password='" & AdoPassword & "'"
  scon.Open
  MsgBox scon.State
End Sub