Visual Basic - Intenta esto

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

Y en la rutina error me dice que el Text15 no existe
que puede estar pasando?

Mira lo que puede ser es que tienes que adaptar el codigo que te pusea tucodigo
si no tienes un text15 te va a mostrar error por lo tanto corregi el codigo deacuerdo a tus controles igual con el data y la Tabla de la base de datos

si aun asi batallas manda,me tu codigo con tu base de datos y con gusto te alludo