Hola Orlando
Para trabajar con ADO primero tienes que hacer referencia a la libreria "Microsoft ActiveX Data Object 2.1 Library" o cualquier version de ésta que tengas.
luego tienes que definir una ODBC con el "Administrador de origene de datos ODBC" del panel de control, bueno aqui le das un nombre a tu conexion y luego eliges el tipo de base de datos con el cual te quieres conectar y luego la base de datos.
Una vez que tienes todo esto te vas a tu programa y define una variable de tipo conexion:
Dim MyConexion A New ADODB.Connection
formato:
MyConexion.Open "DSN=Nombre de la conexion que creaste;UID=usuario;PWD=clave"
Ejemplo:
MyConexion.Open "DSN=My_odbc;UID=Admin;PWD="
Admin si es con access este es el usuario administrador de la base de datos
SA si es con SQL Server este es el usuario administrador de la base de datos, etc.
Bueno y ya esta abierta tu conexion con la base de datos.
Si quieres abrir algun recordSet lo que tienes que hacer es algo parecido, Ej:
Dim rstClientes as New ADODB.RecordSet
rstClientes.Open "SELECT * FROM Clientes", MyConexion
if rstClientes.eof then
else
endif
rstClientes.close
Set rstClientes=nothing
Espero que esto te ayude, cualquier duda la envías.
Alexis Aravena Silva
[email protected]