yo lo ago de la siguiente manera
Set db = New Connection
db.CursorLocation = adUseClient
db.Open = "Provider=MSDASQL.1;" & _
"Persist Security Info=False;Data Source=Tu base de datos;Initial Catalog=tu base de datos"
o por medio de las propiedad
personalizado
despues en la ficha general
utilizo la tercera opcion que es : usar cadena de coneccion dar en generar
y en la ficha de Proveedor escojo
microsoft ole db provider for ODBC drives
das en el boton siguiente
despues en la ficha de Conexion
donde dice espesifique el origen de datos
escojes tu base de datos
y en donde dice
escribe el catalogo iniciaL
ESCOJES TU CATALOGO
DAS aceptar
y tevas a la ficha que dice origen de registros
y ahi seleccionas
1 - adCmdText
y en la parte de abajo
donde dice texto del comando (SQL)
PONES
SELECT * FROM TU TABLA
DAS APLICAR Y ACEPTAR
ES PERO QUE TE SIRVA DE ALGO SALUDO
