Puedes hacerlo asi:
Supongo que ya tienes tu conexion
declaras este recordset
Código PHP:
Dim RSBUSCA As New ADODB.Recordset
Código PHP:
Private Sub txtapellidos_Change()
RSBUSCA.CursorType = adOpenKeyset
CAD = "SELECT * FROM TABLA"
If Len(txtapellidos.Text) > 0 Then
CAD = CAD & " where apellidos like '%" & Trim(txtapellidos.Text) & "%'"
End If
RSBUSCA.Open CAD, CN
dgbusqueda.Enabled = True
Set dgbusqueda.DataSource = RSBUSCA
Set RSBUSCA = Nothing
End Sub
donde:
txtapellidos es text
dgbusqueda es un DataGrid
y CN es mi variable de conexion
con eso ya tienes un buscador por Apellidos espero te sirva.
Saludos.