Visual Basic - Autocompletar textboxs mediante ADODB y Access

Dim conexion As New ADODB.Connection

Dim getnames As New ADODB.Recordset

Private Sub Text2_Change()

Private Sub Form_Load()

If conexion.State <> 1 Then

conexion.CursorLocation = adUseClient

conexion.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\dbInventario.mdb"

End If

End Sub

Set getnames = New ADODB.Recordset

If Not Text2.Text = "" Then

getnames.Open "SELECT Herramienta FROM Herramientas WHERE idHerramienta=" & Text2.Text & "", conexion, adOpenStatic, adLockOptimistic

    If getnames.RecordCount > 0 Then

    Text3.Text = getnames!Herramienta

    Else

    Text3.Text = "No Data"

    End If

End If

End Sub