LISTBOX

Private Sub txtproprietario_Change()
Dim Rs As Recordset
Dim cnBd As String
Dim i As Integer
On Error GoTo erro
If ListClick Then
    ListClick = False
    Exit Sub
End If
i = txtproprietario.SelStart
cnBd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.path & "\Bdimobiliaria.mdb;Persist Security Info=False"
Set Rs = New Recordset
Rs.Open "SELECT Nome FROM Tbl_Proprietarios WHERE Nome LIKE '" & txtproprietario.Text & "%' ORDER BY Nome asc", cnBd
If txtproprietario.Text <> "" And Not DelBack Then txtproprietario.Text = Rs![nome]

List1.Visible = True

List1.Clear

While Not Rs.EOF

    List1.AddItem Rs![nome] 'nome no banco do txtproprietario
    
    Rs.MoveNext
   
Wend

Rs.Close

txtproprietario.SelStart = i
txtproprietario.SelLength = Len(txtproprietario.Text)

Exit Sub
erro:
   Select Case Err.Number
        Case 3021
          List1.Clear
           List1.Visible = False
        Case Else
            MsgBox Err.Number & " - " & Err.Description, vbExclamation
           Resume Next
    End Select
End Sub

Private Sub List1_Click()   
ListClick = True
txtproprietario.Text = List1.List(List1.ListIndex)
txtproprietario.SetFocus
end Sub

Private Sub txtproprietario_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDelete Or KeyCode = vbKeyBack Then
    DelBack = True
Else
    DelBack = False
End If
End Sub

Private Sub Text1_Change()
  ListBox1.ListIndex = Sendmessage(ListBox1.hWnd, _
                       LB_FINDSTRING, -1, _
                       Byval Text1.Text)
End Sub