Dim Kriter As String

   Adodc4.Refresh

    If Kriter = "" Then

        Kriter = "Tarih >= '" & CDate(ilktarih.Value) & "' and Tarih <= '" & CDate(sontarih.Value) & "'"

    Else

        Kriter = Kriter & " And Tarih >= '" & CDate(ilktarih.Value) & "' and Tarih <= '" & CDate(sontarih.Value) & " 'and  VSFlexGrid11.TextMatrix(0, 20)= '" & (Combo11.Text) & "'"

    End If

    With Adodc4.Recordset

        .Filter = Kriter

        If .RecordCount > 0 Then .Update

        

    End With

    Set VSFlexGrid11.DataSource = Adodc4

    

 Call Kolonlari_Ayarla(VSFlexGrid11)

 

Bu iki tarih arasında listeliyor 3. bir kriter eklemek istersem ne yapmam lazım ?