Access VisualBasic Script

Sub openForm()
   Dim con As ADODB.Connection
   Set con = CurrentProject.Connection
End Sub