Visual Basic - imprimir datareport filtrado

utilizo este codigo para imprimir:
Dim cadena, sql, path As String
Dim tabla As String
path = App.path & "\basedatos1.mdb"
Set conex = New ADODB.Connection
Set record = New ADODB.Recordset
cadena = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Persist Security Info=False"
conex.ConnectionString = cadena
conex.Open cadena
sql = "select * from fichas"
record.LockType = adLockOptimistic
record.CursorLocation = adUseClient
record.CursorType = adOpenDynamic
record.Open sql, conex
With rep_fichas
Set .DataSource = Nothing
.DataMember = ""
Set .DataSource = record.DataSource
For i = 1 To 3
.Sections("Sección1").Controls.Item(i).DataMember = ""
.Sections("Sección1").Controls.Item(i).DataField = record.Fields(i - 1).Name
Next i
End With
rep_fichas.Show
el problema es que necesito filtrar la tabla en la linea donde se encuentra:
sql = "select * from fichas" lo e cambiado por sql = "select * from fichas where control like ' " & text1 & " ' "
pero no funciona me pueden indicar como debo hacerlo
gracias