Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. Connect to current database
Sub ConnecttoSameDB()
    Dim conn As ADODB.Connection
    Set conn = CurrentProject.Connection
    MsgBox "Connected to " & conn.Provider
End Sub