Generar reportes que cumpla una condicion y de cierta fecha?

En un datareport sin dataenviroment genero reportes de registros que cumplen con cierta condicion, por ejemplo los no realizados. Sin embargo cuando quiero que me muestre los no realizados de una fecha que le indico me los arroja todos. Este es el codigo que utilizo en VB 6.0

Private Sub cmdnorealizado_Click()
Set rs = cn.Execute("select * from reparaciones where estatus='no realizado'", DTPicker4 & "'")
If rs.EOF = False Then
     Set drpno_realizado.DataSource = rs
            drpno_realizado.Orientation = rptOrientLandscape
            drpno_realizado.Show vbModal, Me
End If