NO SE QUE BASE DE DATOS UTILICES, NECESITAS LOS DRIVES DE CONECCION, SI UTILISAS ACCES YA LOS TRAE TU MAQUINA, SI NO DESCARGATELOS.
YA TENIENDO LOS DRIVERS HAS LO SIGUIENTE:
VETE AL PANEL DE CONTROL
DESPUES ELIGE HERRAMIENTAS ADMINISTRATIVAS
LUEGO ORIGEN DE DATOS ODBC
AHI AGREGA TU BASE DE DATOS Y ELIGE EL DRIVER DE CONEXION Y UN DNS.
TENIENDO ESTO YA PUEDES EMPESAR A PROGRAMAR.
EN VISUAL BASIC 6. TIENES QUE AGREGAR UNA LIBRERIA ADO. QUE CONTIENE 2 OBJETOS UNO CONECT O OTRO RECORD SET
LO ENCONTRARAS EN EL MENU PROYECTO LUEGO REFERENCIAS Y TE APARECERA UNA LISTA CON CHECKBOXS, SELECIONA Microsoft ActiveX Data Objects 2.6 Library.
AHORA A USARLA:
Set cnConex = New ADODB.Connection
Configuramos la cadena de conexión si vamos a acceder a una base de datos de Access.
strCadenaConex = "Provider=SQLOLEDB.1;” & _
“USER ID=nombreusuario;” & _
“PASS=contraseña;” & _
“Initial Catalog=nombrecatalogo;” & _
“Data Source=basdedatos"
O la configuramos de esta otra forma si vamos a acceder a una base de datos de SQL.
cnConex.ConnectionString = strCadenaConex
Indicamos a la conexión la cadena de conexión.
cnConex.Open
Y por último abrimos la conexión.
Una vez preparada la conexión, procedemos a preparar el comando:
Set cmdComando = New ADODB.Command
Instanciamos el comando.
Comando.ActiveConnection = cnConex
Le indicamos a que conexión pertenece.
Comando.CommandText = "Consulta SQL”
Establecemos la consulta que ejecutará el comando.
Set parParametro1 = cmdComando.CreateParameter("campo", tipodedatos,
adParamInput, , “valor”)
cmdComando.Parameters.Append parParametro1
Una vez preparado también el comando, procedemos a ejecutarlo y guardar sus resultados:
cmdComando.Execute
Si nuestra consulta no devuelve datos, ejecutamos el comando.
Set rsLista = New ADODB.Recordset
Set rsLista = cmdComando.Execute
Si nuestra consulta devuelve datos, instanciamos el RecordSet y ejecutamos la sentencia indicando que
éste es el destinatario de los datos que devuelva.
EL OBJETO rsLista. CONTIENE LA INFORMACION EN UN ARREGLO AHORA TU TAREA ES INVESTIGAR COMO SACAR LA INFORMACION, ES FACIL, Y DESPUES SOLO LO METES A UN CICLO WHILE(ALGO NOT EOF) Y LLENAS TU LISTA.