Private Sub txtBuscar_KeyUp(KeyCode As Integer, Shift As Integer)
Dim sql As String
On Error GoTo ManejoError
griClientes.Clear
Set conexionbd = New ADODB.Connection
Set recordset2 = New ADODB.Recordset
conexionbd.Open "RutaBd"
sql = "select * from Usuarios where Nombres like '" + txtBuscar.Text + "%'"
recordset2.Open sql, conexionbd
recordset2.MoveFirst
i = 1
Do While Not recordset2.EOF
griClientes.Text = "Nombres"
griClientes.CellBackColor = &HE0E0E0
griClientes.Col = 1
griClientes.Text = "Apellidos"
griClientes.CellBackColor = &HE0E0E0
griClientes.Col = 0
griClientes.Rows = i
texto = recordset2!Nombres + Chr(9) + recordset2!Apellidos + Chr(9)
griClientes.AddItem texto, i
recordset2.MoveNext
i = i + 1
If txtBuscar.Text = "" Then
griClientes.Clear
End If
Loop
ManejoError:
griClientes.Text = "Nombres"
griClientes.CellBackColor = &HE0E0E0
griClientes.Col = 1
griClientes.Text = "Apellidos"
griClientes.CellBackColor = &HE0E0E0
griClientes.Col = 0
End Sub