Visual Basic - FILTRO PARA UN DBGRID

Hola y agradezco lo que hacen ..
necesito ayuda en lo siguiente ..
tengo una Text en el formulario que hace mención al campo
codigo que es tipo caracter y desde ahi quiero filtrar mediante
el recordset ,los registros que sean iguales en el Dbgrid .

en la caja de texto código ..osea si digito a4 filtre altiro a la Grilla
en el Dbgrid tengo 4 campos a mostrar

que código de ejemplo necesito en la Text código ?

gracias y espero algo de código de ejemplo .

Private Sub Text15_Change()
Filt
End Sub

Public Sub Filt()
Dim R As String
On Error GoTo RutinaDeError
Data1.RecordSource = "SELECT * FROM tabla1 WHERE concepto like '*" & Text15.Text & "*'"
Data1.Refresh
DBGrid1.Refresh
Exit Sub
RutinaDeError:
R = MsgBox(Error, vbOKOnly, "Se ha producido un error:")
End Sub