Datensatz filtern zwichen zwei Werten

Question

Hi,
Ich brauchen hilfen. z.b
Ich habe Tabelle
Meine Tabelle Name ist Test008 Und Test007
Test008:
ID    Niedrig     Hoch
1    100     200
2    500     700
3    900     1000
************************************************************
Test007:
ID    DD001
1    530
************************************************************
  Sub FindProject007()
    Dim strSQL As String
    Dim rst As Recordset
    
    Set WS = DBEngine.Workspaces(0)
    Set DB = WS.Databases(0)
    strSQL = "SELECT * FROM Test008, Test007 WHERE Test007.DD001 >= Test008.Niedrig AND       Test007.DD001 <= Test008.Hoch"
    Set rst = DB.OpenRecordset(strSQL)
        If Not rst.EOF Then
        MsgBox "Not Found"
    Else
        MsgBox "Found"
    End If
    rst.Close
    Set rst = Nothing
End Sub

Meine Fragen jedesmal Wenn ich versuchen über Formulare zu Filtern >= AND <= wie meine Beispiel oben
bekommen ich egal welchen Nr (FOUND). Normal wenn ich 107 eingeben soll sagen (FOUND) aber wenn ich 800 eingeben
soll sagenn (NOT FOUND). Bitte was habe ich falsch gemacht????

Danke