Visual Basic - Moverse por los registros

Public cn As New ADODB.Connection

Public rs As New ADODB.Recordset

 en el load del formulario

Call conectar

Sub conectar()

Set cn = New ADODB.Connection

Set rs = New ADODB.Recordset

cn.CursorLocation = adUseClient

rs.CursorLocation = adUseClient

cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & ReadIniValue(App.Path & "\rutagps.ini", "bd", "ruta"), "vehiculo"

End Sub

If KeyAscii = 13 Then

    Set rs = cn.Execute("select * from vehiculo where cedula like '" & txtcedula & "'")

        If rs.EOF = True Then

        MsgBox "No existen registros con ésta cedula, revisela e intente de nuevo", vbInformation, "ATENCIÓN"

    Else

    'muestro los datos en unas cajas de texto

    txtcedula = rs!cedula

    txtnombre = rs!nombre

    txtapellido = rs!apellido

    txttelefono = rs!telefono

    txtcorreo = rs!correo

    txtplaca = rs!placa

    txtcarro = rs!carro

    txtgps = rs!equipo

    txtsimcard = rs!simcard

    fecha_contrato = rs!fechacontrato

    vencimiento = rs!fechavencimiento

    pago_desde = rs!pagodesde

    hasta = rs!hasta

        End If

End If

rs.MoveFirst

rs.MoveLast

If rs.BOF = False Then

rs.MovePrevious

End If

If rs.EOF = False Then

rs.MoveNext

End If