Connecting with Microsoft Access with ADODB.Connection
Sub openForm() Dim con As ADODB.Connection Set con = CurrentProject.Connection End Sub