• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Connect to a database

Connect to a database

Connect to a database

Rate Connect to a database

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

strCNString = "Data Source=" & App.Path & "\dbname.mdb"
cn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
cn.ConnectionString = strCNString
cn.Properties("Jet OLEDB:Database Password") = ""
cn.Open

If cn.State = adStateConnecting Then MsgBox "Connecting Data Source...."
If cn.State = adStateOpen Then MsgBox "Connection Successful."
'cn.Close
End Sub