Ver dato si existe

Hola tengo este código y lo que quiero es que cuando voy a llamar este sub me controle si el móvil esta en la tabla, si no esta lo pongo a encontré a false y lo agrego abajo, si el móvil esta ya en la base con sus datos entre ellos la fecha quiero controlar que la fecha que voy a ingresar ya no este registrada para ese mismo móvil pero no me doy cuenta como hacerlo ya que esta revisando el primero que encuentra y si es menor lo repite :
Private Sub ActPosiciones()
    Dim encontre As Boolean
    If MiRecordset5.EOF = True And MiRecordset5.BOF = True Then
        encontre = False
        GoTo BaseVacia
    End If
            Do While Not MiRecordset5.EOF
                'Actualizamos la posición del movil en las posiciones
                If Val(movil) <> 0 And Val(movil) = MiRecordset5!Posi_Vehi_id Then
                   FechaC = (diayhora)
                       If FechaC = MiRecordset5!Posi_fecha Then
                            Exit Sub
                        Else
                            MiRecordset5.AddNew
                            MiRecordset5!Posi_Vehi_id = movil
                                encontre = True
                                MiRecordset5.Update
                                Exit Do
                            End If
                    End If
                 encontre = False
                 MiRecordset5.MoveNext
            Loop
            MiRecordset5.MoveFirst
BaseVacia:
                    If MiRecordset2.EOF = True And MiRecordset2.BOF = True Then
                        Exit Sub
                    End If
                        If encontre = False And Val(movil) <> 0 Then
                                MiRecordset5.AddNew
                                MiRecordset5!Posi_Vehi_id = movil
                                MiRecordset5.Update
                        End If
End Sub