by Praveen Srivastava (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 6th May 2009
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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
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
No comments have been posted about This Code help you to connect MS-Access 2003 password protected database using ADO object in Visual. Why not be the first to post a comment about This Code help you to connect MS-Access 2003 password protected database using ADO object in Visual.