olá,como eu posso fazer para quando o usuario digitar o texto para busca,o programa localiza e manda uma msg para cada registro achado?

 

 

Bem voce pode fazer de várias formas... Uma delas é Filtrar por sql o q o usuário digitou

Ex.: "Select * From Tabela WHERE CampoNome='" & varpesquisa & "'"

Abrir um recordsert com o resultado acima e listar a partir de um loop comum. Ex:

 

Do

Loop Until Recordset.EOF=True

 

Espero ter ajudado... Abraços, Sidnei

Bernardolb com o seek seria algo parecido com isso:

 

agenda = o banco de dados

INome = o index do banco de dados

 

        Agenda.Index = "INome"
        Agenda.Seek ">=", Text1.Text
        Do While Not Agenda.EOF
            Text1.Text = Agenda!Nome
            Dim flag As Integer
            flag = MsgBox("Nome Correto", vbQuestion + vbYesNoCancel, "Atenção")
            If flag = vbYes Then
                MostraDados
                Exit Do
            ElseIf flag = vbNo Then
                Agenda.MoveNext
                If Agenda.EOF Then
                    MsgBox "Não existem mais telefones cadastrados"
                    Text1.Text = ""
                    Picture1.Visible = False
                    CmdAlterar.Caption = "&Alterar"
                    CmdExcluir.Caption = "&Excluir"
                    Exit Sub
                End If
            Else 'nesse caso flag = vbCancel
                Text1.Text = ""
                Picture1.Visible = False
                CmdAlterar.Caption = "&Alterar"
                CmdExcluir.Caption = "&Excluir"
                Exit Sub
            End If
        Loop

 

Qualquer dúvida pode perguntar