Visual Basic - Problema con una tabla

Hola amigos!.
Tengo 4 tablas, las cuales consulto los registros al digitar una fecha, la primera fecha que consulto (sin importar en cual de las tablas la busque) me la encuentra y muestra el registro correspondiente en pantalla, pero cuando digito una (segunda, o tercera, etc) fecha para que la busque (aunque sea la misma que digite inicialmente) VB la busca y me dice que no existe sin importar en cual de las tablas la busque.
En otras palabras, solo la primera fecha que busco me la encuentra, despues de eso ninguna otra fecha que digito me la encuentra, ni siquiera la misma que digite inicialmete.
¿Alguien sabe por que me pasa eso?, ¿Como lo corrigo?

Gracias.

Lo más probable es que falle la busqueda debido a la forma en que estes abriendo la tabla. Es posible que no se pueda mover el recordset .
Porque no envias el codigo que has escrito?.

Aqui te mando el codigo que uso para consultar una de las tablas, junto con el form_load() y una rutina que uso para mostrar el contenido de un "Grid" y la rutina de limpieza de los campos en la pantalla, olvide decir que si me salgo de la "Forma" y vuelvo a entrar puedo volver a consultar una fecha (pero solo la primera que digite), en otras palabras, para consultar varias fechas debo salir y volver a entrar a la forma.

Te agradecería mucho cualquier ayuda que me puedas dar.

Private Sub Form_Load()
SICOI.Hide
ConsultaCierres.Show
Dim basedatos1 As Database
Dim TotServi1 As Recordset

Set basedatos1 = Workspaces(0).OpenDatabase(App.Path & "\Bitacora.mdb")
Set TotServi1 = basedatos1.OpenRecordset("TotServiciosAcu", dbOpenTable)
Totalrec = TotServi1.RecordCount

TotLineas = Totalrec
TotLineas = TotLineas + 1

Detalle.Rows = TotLineas
Detalle.ColWidth(0) = 700
Detalle.ColWidth(1) = 1500

Totalrec = 0
TotalRec1 = 0

Linea = 1

Detalle.ColWidth(1) = 1500

Detalle.Row = 0
Detalle.Col = 0
Detalle.CellAlignment = flexAlignCenterCenter
Detalle.Text = "Cantidad"
Detalle.Col = 1
Detalle.CellAlignment = flexAlignCenterCenter
Detalle.Text = "Servicio"
Detalle.Col = 2
Detalle.CellAlignment = flexAlignCenterCenter
Detalle.Text = "Total"

TxtFecha1.SetFocus
End Sub

Public Sub CmdDiario_Click()
Dim basedatos1 As Database
Dim Diarios1 As Recordset

Dim TotalNav1 As Integer

Set basedatos1 = OpenDatabase(App.Path & "\Bitacora.mdb")
Set Diarios1 = basedatos1.OpenRecordset("Diario", dbOpenTable)

If Diarios1.EOF Then
MsgBox "La base de datos esta basia"
TxtFecha1.Text = " "
TxtFecha1.SetFocus
Else
Diarios1.MoveFirst
Do While Not Diarios1.EOF
If TxtFecha1.Text <> Diarios1!Fecha Then
Diarios1.MoveNext
If Diarios1.EOF Then
MsgBox "Esta fecha no existe"
TxtFecha1.SetFocus
Exit Sub
End If
ElseIf TxtFecha1.Text = Diarios1!Fecha Then
Fecha.Caption = Diarios1!Fecha
Totcliente.Caption = Diarios1!Totclientes
TotalNav.Caption = Format(Diarios1!Total, "##,###")
TotalNav1 = TotalNav.Caption
CmdLimpiar.SetFocus
Exit Do
End If
Loop
End If
TipoCierre = 1
Call Servicios

End Sub


Public Sub Servicios()
Dim basedatos1 As Database
Dim TotServi1 As Recordset

Set basedatos1 = Workspaces(0).OpenDatabase(App.Path & "\Bitacora.mdb")
If TipoCierre = 1 Then
Set TotServi1 = basedatos1.OpenRecordset("TotServiciosAcu", dbOpenTable)
ElseIf TipoCierre = 2 Then
Set TotServi1 = basedatos1.OpenRecordset("TotServiciosM", dbOpenTable)
ElseIf TipoCierre = 3 Then
Set TotServi1 = basedatos1.OpenRecordset("TotServiciosA", dbOpenTable)
End If
Dim Total1 As Long

Linea1 = TotServi1.RecordCount
Linea1 = Linea1 + 1

Detalle.Rows = Linea1

Linea = 1
If TotServi1.EOF Then
Exit Sub
Else
Do While Not TotServi1.EOF
If TotServi1.EOF Then
Linea = 1
LblTotalServ.Caption = Format(Total1, "##,###")
CmdLimpiar.SetFocus
Exit Do
End If
Detalle.Row = Linea
Detalle.Col = 0
Detalle.Text = TotServi1!Cantidad
Detalle.Col = 1
Detalle.Text = TotServi1!descripcion
Detalle.Col = 2
Detalle.Text = Format(TotServi1!Total, "##,###")
Total1 = Total1 + TotServi1!Total
TotServi1.MoveNext
Linea = Linea + 1
If TotServi1.EOF Then
Linea = 1
LblTotalServ.Caption = Format(Total1, "##,###")
CmdLimpiar.SetFocus
Exit Do
End If
Loop
End If
Total1 = Total1 + Val(TotalNav.Caption)
GranTotal.Caption = Format(Total1, "###,###") 'Muestra el total diario en pantalla.
TipoCierre = 0
End Sub

Private Sub CmdLimpiar_Click()
Fecha.Caption = " "
Totcliente.Caption = " "
TotalNav.Caption = " "
LblTotalServ.Caption = " "
TxtFecha1.Text = " "
TxtFecha1.SetFocus

Linea1 = Linea1 - 1
Linea = 1
Do While Linea <= Linea1
Detalle.Row = Linea
Detalle.Col = 0
Detalle.Text = " "
Detalle.Row = Linea
Detalle.Col = 1
Detalle.Text = " "
Detalle.Row = Linea
Detalle.Col = 2
Detalle.Text = " "
Detalle.Row = Linea
Linea = Linea + 1
If Linea > Linea1 Then
Linea = 1
Exit Do
End If
Loop
Linea = 1
GranTotal.Caption = ""

End Sub

Por que no corres el debug para que revices si al ejecutar otra consulta te esta llamando los procedimientos que haz pedido.
Tambien debes de revisar lo que estas haciendo probablemente no estas refrescando la busqueda y se esta quedando con la primera consulta que hizo.