Estou tentando o acesso aos dados via DAO (VB5), já que pelo método SEEK, o ponteiro

Aponta para o primeiro registro, sendo que preciso que aponte para o último registro (último movimento desse livro <última vez que saiu da prateleira>). Todavia, o sistema sempre apresenta erro em <Run-time>.

Na tabela <Andamento>, o campo NumFilme é sua numeração no estoque, e o campo <Retirada> é a data em que o livro foi retirado da estante, sendo que determinado livro poderá ser retirado inúmeras vezes, e a procura deveria apontar para o registro da última retirada.

( a função AtualizaFormulario preenche o form com os dados da tabela Andamento, e os dados do livro e do cliente são obtidos nas tabelas próprias). Eis o código que estou empregando:

Option Explicit

Dim BancoDeDados As Database

Dim TbCadLivros As Recordset

Dim TbCliente As Recordset

Dim TbAndamento As Recordset

Private Sub cmdLocalizar_Click()

LimpaFormulario

Dim Sql As String, Procura As String

Procura = InputBox("Digite o nº procurado:", "Localizar último movimento")

If Len(Procura) = 0 Then Exit Sub

    Sql = "Select * from Andamento Where NumLivro Like" & Procura & "Order by Retirada desc"

    TbAndamento.FindMin Procura

    If TbAndamento.NoMatch = True Then

        MsgBox "Andamento inexistente..."

        Exit Sub

    Else

        AtualizaFormulario  'Povoa o form

    End If

Exit Sub

Private Sub Form_Load()

    Set BancoDeDados = OpenDatabase(App.Path & "LivrosDireito.mdb")

    Set TbCliente = BancoDeDados.OpenRecordset("CadastrodeClientes", dbOpenTable)

    Set TbLivros = BancoDeDados.OpenRecordset("CadastrodeLivros", dbOpenTable)

    Set TbAndamento = BancoDeDados.OpenRecordset("Andamento", dbOpenDynaset)

    TbCliente.Index = "IndCódigo"

    TbCadLivros.Index = "IndCódigo"

    'TbAndamento.Index = "IndLivro"            ‘Linha desabilitada.

    cmdGravar.Enabled = False

    Frame1.Enabled = False

    If TbAndamento.EOF = False Then

        AtualizaFormulario

    End If

End Sub