sql i az buçuk bildiğimi düşünüyordum o kadar da bilmiyormuşum daha öğreneceğim çok şey var mesela 

Private Sub Komut18_Click()

    Dim strSQL As String

        

    If (sqltur.Value = 1) Then

        strSQL = "SELECT id, isimler,kronik, firma, bastarih, bittarih FROM Tablo1" & _

            " WHERE firma='" & [Metin13] & "'" & _

            " AND not isnull(kronik)" & _

            " AND (CLng(bastarih)<=" & CLng(Me.sontarih) & ")" & _

            " AND (CLng(bittarih)>=" & CLng(Me.ilktarih) & ")"

    Else

        strSQL = " select * from tablo1 where [id] not in ( select [id] from tablo1 where clng(bastarih)>=" & CLng(Me.sontarih) & _

         " or  clng(bittarih)<=" & CLng(Me.ilktarih) & ") and Tablo1.firma='" & [Metin13] & "'"

    End If

    

    listele strSQL, Me.Liste19, 2



End Sub

buradaki

select * from tablo1 where [id] not in

böyle hiç kullanmamıştım