Filtrar un data grid por nombre

FILTRAR DE UN DATAGRID POR NOMBRE

Elementos:
Datagrid
Boton de comando
Textbox



















CODIGO

Option Explicit

' Cadena de conexión
Private Consts_CONNECTION_STRING As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Archivos de programa" & _"\Microsoft Visual Studio\VB98\" & _
"NWIND.MDB;Persist Security Info=False"


Private Const SQL As String = "Select * From Proveedores"
Private ConstCAMPO_A_FILTRAR As String = "NombreContacto"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


' Variable de tipo Recordset y con evento
Private WithEventsRecordset As ADODB.Recordset


' Cuando se produce un error en el recordset se dispara este evento
Private Sub Recordset_Error( _
ByVal ErrorNumber As Long, _
Description AsString, _
ByVal Scode As Long, _
ByVal Source As String, _
ByVal HelpFile As String, _
ByVal HelpContext As Long, _
fCancelDisplay As Boolean)

'Mostramos el error
MsgBox " Descripción del Error :" & Description, vbCritical
End Sub


' Botón que quita el fitro y vuelve a visualizar _
todos los datos del recordset en el dataGRid
PrivateSub Command1_Click()

' Comprueba que el recordset está instanciado
If Not Recordset Is Nothing Then
' Comprueba que esté abierto
If Recordset.State = adStateOpen Then' Elimina el filtro
Recordset.Filter = ""
' Carga el Datagrid
Set DataGrid1.DataSource = Recordset
' se posiciona en el primer registroRecordset.MoveFirst
End If
End If
End Sub


' Esto muestra en el caption del formulario la posición _
actual del recordset mediante la propiedad AbsolutePosition
Private Sub...