Mega Code Archive

 

Categories / VisualBasic Script / Access

 

A Simple Connection Example

Sub MakeConnectionExample()      Dim conn As ADODB.Connection      On Error GoTo ErrHandler      Set conn = New ADODB.Connection      conn.Provider = "Microsoft.Jet.OLEDB.4.0;"      conn.ConnectionString = "Data Source=" & CurrentProject.Path &"\mydb.mdb"      conn.Open      If conn.State = adStateOpen Then          MsgBox "Connected!", vbOKOnly          conn.Close      Else          MsgBox "Not connected!", vbOKCancel      End If      Set conn = Nothing      Exit Sub  ErrHandler:      MsgBox "Could not connect to database. " & Err.Description, _          vbOKOnly  End Sub