RE:Hacer una conección ODBC
1) la conexión con la base de sql
dim mibase As Connection
Set mibase = New ADODB.Connection
mibase.ConnectionString = "driver={SQL Server};" & _
"server=MISERVER;uid=;pwd=;database=MIBASE"
mibase.ConnectionTimeout = 30
mibase.Open
2) la apertura de una tabla
dim rs as recordset
Set rs = New ADODB.Recordset
rs.Open "select * from mitabla", mibase, adOpenKeyset, adLockOptimistic
rs.MoveLast