Problemas con codigo

Ari
19 de Julio del 2004
Tengo un problema con el siguiente codigo, a ver si m podeis echar una mano, por favor:

***************************************************************************
Private Sub cmdEntrar_Click()

Dim bd As Database
Dim rsEmp As Recordset
Dim clave As String
Dim enc As Boolean
clave = "99999"
Set bd = OpenDataBase("C:...MiBaseDatos.mdb")
Set rsEmp = bd.OpenRecordSet("select codigo from empleados")
enc = False
While enc = False Or Not rsEmp.EOF
If rsEmp!codigo = "'& txtCod.Text &'" Then
enc = True
Else: rsEmp.Next
End If
Wend
If enc Then
frmEmpleado.Show
ElseIf "'& txtCod.Text &'" = clave Then
frmOpcion.Show
Else: MsgBox "Código incorrecto", vbExclamation, "Mensaje"
End If

End Sub
************************************************************************

Me da un error de compilación : "no se ha definido el tipo definido por el usuario" en la declaración de la variable DataBase. Yo creo que me falta alguna librería, estoy en lo cierto? cual?? como la consigo??? el resto esta bien???? Ayyyy!!! Una ayudita por favor!!
Muchas gracias de antemano...

Adrian
19 de Julio del 2004
hola ari:
tienes que acticar en proyecto => referencias Microsoft DAO 3.51 Object Library ...
y a tu consulta le falta un espacio antes del ampersan..
'" & txtCod.text & "' = "clave"

Saludos