Visual Basic - Ayuda para conexiòn a base de datos

Hola todos!!

podrian ayudarme con un programa que empiezo a hacer con una base de datos en access, y tengo problemas para la conexción con la base de datos mediante DAO; no entiendo porque si creo que estoy escribiendo bien lqas instrucciones.

escribo en un modulo:
Dim MiWs as Workspace
Dim db as database
Dim dyt as recordset

Set MiWs = DBEngine.Workspaces(0)
set db = MiWs.OpenDatabase(“c:\cajero\cajero.mdb”)
set dyt = db.OpenRecordset(“cliente”)

y luego trato de utilizar un campo para ver si conectó bien a la base de datos:

msgbox(“nombre del cliente : “ & dyt!cliente)

y con la sorpresa que el programa no corre y me dice:

Error de compilación:

no se ha definido el tipo definido por el usuario


y asì para todos los recordset que sigan. no entiendo cual es el error.
Las tres primeras lineas las cambio por Global donde dice Dim, las cambio por Public y
todo este código lo meto dentro de un procedimiento Sub Main() de la forma MDI o principal y en las propiedades del proyecto lo pongo a arrancar con el Sub Main() y tampoco funciona, la verdad no sé cual es el problema.

podrian indicarme cuales son las instrucciones y/o donde hay que ponerlas para conectar una base de datos mediante còdigo.

les agradezco pues estoy desesperado.

Primero debes agregar en: menu Proyecto, Referencias y alli selecciones el Microsoft DAO 3.51 Object Library, o simplemente agrega el control DATA (aunque no lo uses, lo pones como invisible) a tu form.

Luego, de preferencia crea un crea un modulo alli declaras una variable asi: Public basededatos as database

Luego con un boton o lo que quieras abres la base:

'abre la base de datos
Set basededatos = DBEngine.Workspaces(0).OpenDatabase("c:\base.mdb")
'---------------------

'---------------------
'Luego checas cualquiera de tus tablas:
Dim dia As Recordset
Set dia = basededatos.OpenRecordset("MITABLA")

dim cadena as string

dia.movefirst <--- busca en el primer renglon de MITABLA
cadena = dia ("CAMPO")

MSGBOX cadena

y listo!!!