Visual Basic - Visual basic

Por favor ayuda necesito apoyo con un programa me marca que no reconoce el formato de la base de datos el codigo es el siguiente.
Option Explicit
Dim MIDATA As Database
Dim MIRECORD As Recordset

Private Sub cmdbusqueda_Click()
On Error Resume Next
MIRECORD.MoveFirst
Do Until MIRECORD.EOF
If txtbus.Text = MIRECORD!CmpTipo Then
lstcontacto.AddItem MIRECORD.Fields("CmpTipo")
End If
MIRECORD.MoveNext
Loop

End Sub

Private Sub cmdlimpiar_Click()
lstcontactos.Clear
txtpag.Text = ""
txtdes.Text = ""
txtnum.Text = ""
txtbus.Text = ""
txttipo.Text = ""
End Sub

Private Sub cmdsalir_Click()
End
End Sub

Private Sub Command1_Click()
Unload Form2
End Sub

Private Sub Form_Load()
Set MIDATA = OpenDatabase(App.Path + "\" + "DIRECTORIO.mdb") aqui marca el error
HORA.Text = Time
FECHA.Text = Date
MIDATA.Close
End Sub

Private Sub Image1_Click()

End Sub

Private Sub lstcontactos_Click()
On Error Resume Next
Set MIRECORD = MIDATA.OpenRecordset("TblBUSQUEDA")
MIRECORD.MoveFirst
Do Until MIRECORD.EOF
If lstcontacto.Text = MIRECORD!CmpTipo Then
txttipo.Text = MIRECORD!CmpTipo
txtpag.Text = MIRECORD!CmpPagina
txtdes.Text = MIRECORD!CmpDescripcion
txtnum.Text = MIRECORD!CmpNumero
End If
MIRECORD.MoveNext
Loop

de antemano gracias

Creo que tu problema esta en la versión del Mortor Jet OLEDB, si estas usando una base de datos creada en versión 97 utiliza el motor 3.0 y no hay ningun problema con este pero si la creastes en una versión 2000 o XP entonces es cuando no lo reconoce ya que estos utilizan la versión 4.0 y si esta creada con cualquiera de estos últimos entonces no los podrás abrir con DAO, te recomiendo que mejor utilices el control ADO que viene en los componentes OCX y con este no tendrás problemas.

Espero que te sirva.

Un saludo

Ni motor ni 2000, ni XP, ni ná de ná...

El problema es que un Recordset debe estar precedido por su base de datos.

Antes de usar el recordset pon la base:
MIDATA.MIRECORD.MoveFirst

y .com

¿Eing?.
A mi me parece que lo que ha comentado el compañero Juan tiene mucha lógica. Lo del recordset no creo que tenga nada que ver ya que el error lo marca en la propia conexión a la base de datos.
En cuanto a que deba ir precedido por su base de datos... pues me parece que dependerá de como se esté conectando a esa base de datos. MIRECORD es un objeto definido como recordset, por lo que no necesita ir precedido por nada. Al menos yo te aseguro que lo utilizo como te digo y no me da ningún problema.
En serio, marina, mejor revisa el proveedor que estás utilizando para abrir la base de datos.

Por lo visto anoche, cuando escribí lo anterior no estaba yo muy bueno...
¿Tomaría más cervecitas de la cuenta, además de que no llegué a leer la pregunta del todo...?
En fin... ya acertaré un día de estos. Perdonad.