Visual Basic - Será dificil 2?

Este es el codigo que utilizo para imprimir los campos que el usuario desea, es solo una parte pero espero y se comprenda.

La consulta la realiza muy bien, el DBGrid me muestra los datos de la consulta, pero cuando envio a impresion me manda todos lo datos de la base de datos, no respeta la consulta que hizo el usuario

Tienes alguna sugerencia?

Este es el codigo:
Dim Criterio, SQL As String

Criterio = InputBox("Introduzca el criterio:")
SQL = "Select nombre,apellidos,estado From Empleados Where Estado="
SQL = SQL & "'" & Criterio
SQL = SQL & "'"
Data1.RecordSource = SQL
Data1.Refresh

CR1.SQLQuery = SQL
CR1.Action = 1

Graciar otra vez!!!

Debes de ponerle formula igual que para el recordset, te mando un listado analizalo.

Private Sub cmdok_Click()

Dim fecha1, fecha2, Aux As String

On Error GoTo Err_Msg
Screen.MousePointer = 11

fecha1 = CDate(mskinicial.Text)
fecha2 = (Format(fecha1, "yyyy, mm, dd"))

Aux = App.Path & "\report\reparticulo.rpt"
If Dir(Aux) <> "" Then
RRepdatos.ReportFileName = Aux
RRepdatos.SelectionFormula = "{qrymovi.fecha_alta}>= date ( " & fecha2 & " ) "
RRepdatos.Action = 1
Else
Screen.MousePointer = 0
Msg = "El reporte '" & Aux & "' no existe"
MsgBox Msg, vbExclamation, "Falta el Archivo de Reporte"
End If

Err_Exit:
Screen.MousePointer = 0
Exit Sub
Err_Msg:
MsgBox Err.Description, vbExclamation, "Error"
GoTo Err_Exit

End Sub

Saludos