então, vamos la
crie um modulo e nele coloque o código abaixo:
Public conn As ADODB.Connection
Public Rs As ADODB.Recordset
no form load coloque:
Set conn = New ADODB.Connection
conn.ConnectionString = "DSN=nome da odbc"
conn.Open ConnectionString
no evento que quiser coloque:
Dim Sql As String
Set Rs = New ADODB.Recordset
Sql = "select campos da tabela From tabela Where sua condição"
Rs.Open Sql, conn, adOpenKeyset, adLockOptimistic