View: - 454
'REFRENCES NEEDED : Microsoft ActiveX Data Objext 2.6 OR 2.5 Liabrary Public CN As Connection Public RS As Recordset Public Sub Connect_DB() Set CN = New ADODB.Connection With CN .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Jet OLEDB:Database Password") = "password" 'DATABASE PASSWORD .ConnectionString = App.Path & "\database.mdb" 'DATABASE PATH .Open End With Set RS = New ADODB.Recordset RS.Open "TABLENAME", CN, adOpenKeySet, adLockOptimistic End SUb Public Sub DissConnect_DB() RS.Close Set RS = Nothing CN.Close Set CN = Nothing End Sub
