ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.2052/vblr7/html/vafctCreateObject.htm
Sub CreateADODB()
   Dim adoApp As Object
   adoApp = CreateObject("ADODB.Connection")
End Sub