busqueda con datagrid

[ariesagv]

Iniciado por Avellaneda

Mira, sólo tienes que poner esto en el evento Change del TextBox

Código:

Private Sub Text1_Change()
    Dim sCampo As String
    sCampo = Combo1.Text
    With Adodc1
        .RecordSource = "SELECT * from Tabla WHERE " & sCampo & " LIKE'" & Text1 & "%'"
        .Refresh
    End With
    Set DataGrid1.DataSource = Adodc1
  End Sub

hola, mira ya lo hice como me dijiste, me sale un error donde dice que la sistaxis en la clausula from y luego me muestra error en el metodo refresh del objeto adodc. ya hice varios cambios a la sentecia select. pero aun asi me muestra el error