Listbox

[mestre fyoda]

então , fizum sistema de busca que quando digata-se a inicial ele abre numa listbox todos os cadastrados com a inicial digitada . Como faço para quando o usuario clicar em cima de um dos nome de uma listbox ele selecionar todos os campos do bd e inseriar dentro de uma .Text ?

eu fiz assim e ta dando erro : BOF E EOF são verdadeiros , ou o registro atual foi excluido . A operação solicitada pelo aplicativo requer um registro atual .

Private Sub List1_Click()
Dim Var1 As String
Dim rs2 As New ADODB.Recordset

Var1 = List1.ItemData(List1.ListIndex)
With rs2
.Open "Select * From clientes where nome = '" & Var1 & "' ", cn, adOpenStatic, adLockReadOnly
     km.Text = rs2("nome")
   End With
End Sub

Private Sub consulta_nome_Change()
   Dim dado As String
   Dim rsTemp As New ADODB.Recordset
   
   List1.Clear
   dado = consulta_nome.Text
   With rsTemp
   .Open "Select * From clientes where nome LIKE '" & dado & "%' order by nome", cn, adOpenStatic, adLockReadOnly
   
       If Not .EOF Then
           List1.ToolTipText = "Clique em um dos nomes  disponiveis para verificar dados completos."
       Else
           List1.ToolTipText = "Nenhum nome disponivel . "
       End If
   
       Do While Not .EOF
           List1.AddItem .Fields("nome").Value
           .MoveNext
       Loop
   End With
End Sub

[Graymalkin]

Experimente fazer:

Var1 = List1.List(List1.ListIndex)

Ao invés de:

Var1 = List1.ItemData(List1.ListIndex)

Abraços,

Graymalkin