• Home
 · 
• Windows System Services
 · 
• connect to MS Access database

connect to MS Access database

connect to MS Access database

Rate connect to MS Access database

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Option Explicit
Public HRConnected As ADODB.Connection

Public Sub ConnTo_HR_DB()
On Error GoTo ErrHandle

    Set HRConnected = New ADODB.Connection
    
    With HRConnected
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=Z:\HRD_MIS.mdb;Persist Security Info=False;Jet OLEDB:Database Password=hrddb"
        .Open
    End With

ErrExit:
    Exit Sub

ErrHandle:
    MsgBox Err.Description
    DoCmd.Quit
    Resume ErrExit

End Sub