Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Connect to current database

Sub ConnecttoSameDB()     Dim conn As ADODB.Connection     Set conn = CurrentProject.Connection     MsgBox "Connected to " & conn.Provider End Sub