Visual Basic - pregunta

Private Sub OPTI_Click(Index As Integer) \'estoy filtrando por estado
Select Case Index
Case 0 \'EN CARTERA
DT.RecordSource = \"SELECT * FROM TABLA WHERE ESTADO=\'EN CARTERA\'\"

Case 1 \'DEPOSITADO
DT.RecordSource = \"SELECT * FROM TABLA WHERE ESTADO =\'DEPOSITADO\'\"

End Select
DT.Refresh


End Sub

Private Sub picker_Click(Index As Integer)
DT.RecordSource = \"SELECT * FROM TABLA WHERE [FECHAPAGO] BETWEEN CDATE (\'\" & Form2.picker(0).Value & \"\') AND CDATE(\'\" & Form2.picker(1).Value & \"\')\"

DT.Refresh
End Sub

Lo que quiero es que me filtre los registros por fecha y ademas por estado.

por estado quiere decir que si el cheque esta en 'cartera' o 'depositado' , y lo que quiero es que tambien me filtre por fecha.