What I usually do is the following:

Set a connection to the datasource like

dim cnn as ADODB.Connection
dim strSQL as string