Visual basic

Me llamo la atención tu anuncia es interesanta.
Necesito ayuda para terminar un pequeño programa checo y checo el código y me merca error en la declaración de variable y ya las cheque y creeo esta bien podrías ayudarme.
Realmente te lo agradecería mucho
De ante mano muchas gracias, este es el código
me marca error en recordset y database
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
MIDATA.Close
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")
HORA.Text = Time
FECHA.Text = Date
End Sub
Private Sub Image1_Click()
End Sub
Private Sub lstcontactos_Click()
On Error Resume Next
Set MIDATA = OpenDatabase(App.Path + "\" + "DIRECTORIO.mdb")
Set mirecrod = 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
End Sub