Boa noite!!

O ideal é postar seu arquivo modelo (compactado!!) para que o pessoal possa lhe ajudar.

Att

Alexandre,
boa noite!

Segue em anexo o meu arquivo .

Se você ou alguém puder ajudar agradeço.

O sistema de pesquisa funciona, quando clicar nele e digitar o que precisa, os registros aparecem, mas preciso que quando eu der um clique duplo em qualquer registro , ele me mostre os dados no formulário de cadastro para que eu possa editá-lo ou excluí-lo.

Mais uma vez obrigado.

Bom dia!!

Tente...

Private Sub ListBox1_Click()

    With Me.ListBox1
        If .ListIndex = -1 Then
            MsgBox "    Não há seleção feita. Por favor, tente novamente.     "
        ElseIf .ListIndex >= 1 Then
            r = Val(.List(.ListIndex, .ColumnCount - 1))
        End If
    End With
     
    With Me

        With Me.ListBox1
            If .ListIndex = -1 Then
                MsgBox " Não há seleção feita"
            ElseIf .ListIndex >= 1 Then
                r = Val(.List(.ListIndex, .ColumnCount - 1))
            End If
        End With
        With Me
            frmCadastroBob.txtDesc.Value = .ListBox1.List(.ListBox1.ListIndex, 0)
            frmCadastroBob.txtCtmBaixa.Value = .ListBox1.List(.ListBox1.ListIndex, 1)
            frmCadastroBob.txtEstEtl.Value = .ListBox1.List(.ListBox1.ListIndex, 2)
            frmCadastroBob.txtEstMainframe.Value = .ListBox1.List(.ListBox1.ListIndex, 3)
            frmCadastroBob.txtRotMainframe.Value = .ListBox1.List(.ListBox1.ListIndex, 4)
            frmCadastroBob.txtReadMainframe.Value = .ListBox1.List(.ListBox1.ListIndex, 5)
        End With
    End With
End Sub

Dentro do seu LitBox, insira o código acima.

Faça os teste e caso necessário favor adaptar!

Att

Alexandre,
Obrigado pelo Help.

Adicionei o código mencionado por você no comando Duplo Clique da listbox mas ele não buscou nenhum resultado ficou estático.

O que pode ter acontecido ?

Obrigado