Prezados colegas, meus arquivos gravados são armazenados no banco de dados pela ordem da gravação. Como eu devo proceder para que, no evento <Load> do form, os registros fiquem em ordem? (já tentei diversas instruções em SQL, mas, como sempre utilizei SQL em projects com acesso à base de dados via DataControl, não sei como fazer em DAO (minha versão do VB é a 5). Agradeço alguma ajuda. Chico.

Private Sub Form_Load()   

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

    Set Tabela = BancoDeDados.OpenRecordset("Fisica", dbOpenTable)          

    Tabela.Index = "CPF"      

    cmdGravar.Enabled = False

    Frame1.Enabled = False   

    If Tabela.EOF = False Then

        AtualizaFormulario

    End If

    Label9.Caption = "Contribuintes cadastrados: " & Tabela.RecordCount

End Sub

Private Sub cmdGravar_Click()

    cmdIncluir.Enabled = True

    cmdAlterar.Enabled = True

    cmdConsultarCPF.Enabled = True

    cmdExcluir.Enabled = True

    cmdAnterior.Enabled = True

    cmdProximo.Enabled = True

    cmdGravar.Enabled = False

    cmdSair.Enabled = True   

    Frame1.Enabled = False

    AtualizaCampos

    Tabela.Update

    Label9.Caption = "Contribuintes cadastrados: " & Tabela.RecordCount

End Sub

Private Function AtualizaFormulario()

On Error Resume Next

        txtNome = Tabela("Nome")

        txtEndereço = Tabela("Endereço")

        txtCidade = Tabela("Cidade")

        cmbAnoBase = Tabela("Ano_Base")

        txtUnidade = Tabela("URF")

        txtArquivo = Tabela("Caixa")

        mskCPF = Tabela("CPF")  

End Function

Private Sub cmdIncluir_Click()

    If MsgBox("Confirma a inclusão de novo registro?", vbYesNo, "Inclusão de novo registro") = vbNo Then

            Exit Sub

            cmdAnterior_Click

            End If

    Tabela.AddNew

    cmdIncluir.Enabled = False

    cmdAlterar.Enabled = False

    cmdConsultarCPF.Enabled = False

    cmdExcluir.Enabled = False

    cmdAnterior.Enabled = False

    cmdProximo.Enabled = False

    cmdGravar.Enabled = False

    cmdSair.Enabled = True

    LimpaFormulario

    Frame1.Enabled = True

    txtNome.SetFocus

End Sub

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

    Set Tabela = BancoDeDados.OpenRecordset("SELECT * FROM FISICA ORDER BY CPF", dbOpenDynaset)

    cmdGravar.Enabled = False

    Frame1.Enabled = False   

    If Tabela.EOF = False Then

        AtualizaFormulario

    End If

    Label9.Caption = "Contribuintes cadastrados: " & Tabela.RecordCount

End Sub

Tentei...

Um abraço!!!