[Resolvido]Recuperar valor de uma tabela ao click de uma LstBox

Boa tarde camaradas..

Tenho uma lstBox com consulta em uma tabela..

o que precciso..

que ao clicar no cliente na lstBox o nome seja inserido em uma caixa texto

Caixa Texto: txtCliente

Como fazer?

Consegui assim






Option Compare Database
Option Explicit
Dim Selecionado As Boolean


Private Sub cmdCapturar_Click()
On Error Resume Next
Dim Linha As Integer
Linha = Me.Lista65.ListIndex
If Selecionado = True Then
Me.txt_Cliente.Value = Me.Lista65.Column(0, Linha)
End If
End Sub


Private Sub Lista65_Click()
Selecionado = True
cmdCapturar_Click
End Sub