RE:enlazar text box con Datagrid
Utiliza en evento Change del campo por el cual esta filtrando
Private Sub txtNombres_Change()
Dim Msg, Estilo, Título
Dim rsSelect_ByAlfa As ADODB.Recordset
Set rsSelect_ByAlfa = New ADODB.Recordset
xSelect = "SELECT * FROM CONSEJERA "
xSelect = xSelect & " WHERE NOMBRE >= '" & Trim(txtNombres) & " '"
xSelect = xSelect & " ORDER BY NOMBRE "
On Error GoTo rsError_Handler
With rsSelect_ByAlfa
.CursorLocation = adUseClient
.CursorType = adOpenForwardOnly
.LockType = adLockPessimistic
.Open xSelect, cn
End With
'---
On Error GoTo rsError_Handler
Set DataGrid.RecordSource = rsSelect_ByAlfa
' Vuelve a cargar el Grid
Exit Sub
rsError_Handler:
'Si ocurre un error.
Msg = Str(Err.Number) & " " & Err.Description
Estilo = vbCritical + vbOKOnly
Título = "Error"
MsgBox Msg, Estilo, Título
Exit Sub
End Sub
Saludos desde Lima