QueryFilter: WhereClause mit AND

Hallo zusammen,

ich bekomme immer ein runtime error 13, Type mismatch, in der letzten zeile meines Codes im Queryfilter(s.u.).

weiß jemand was ich falsch gemacht habe? Ich möchte nur die zeilen ermitteln, die alle drei bedingungen erfüllen. Im Feld Ref_art muss 'keine' stehen und die Referenznummer (Referenzinfo = primärschlüssel) soll im bereich der eingelesenen werte liegen.

Vielen Dank schon mal im Vorraus.
Gruß Imke

------------------------------------
Public Sub RefNr_MinMax()

Dim min As Integer
Dim max As Integer
Dim maxEingabe As Integer

Dim pTable As ITable
Dim pQueryFilter As IQueryFilter
Dim pCursor As ICursor
Dim pRow As IRow

Dim pAccFact As IWorkspaceFactory
Dim pAccWsp As IFeatureWorkspace
Dim pPropSetAccess As IPropertySet

'******************** Min und Max Wert auslesen **********************
min = CInt(Form_Ref.txb_min.Text)
maxEingabe = CInt(Form_Ref.txb_max.Text)

'******************** angegebene Menge prüfen ************************
If (maxEingabe - min > 100) Then
max = min + 100
MsgBox "Es können aus technischen Gründen nur die Referenznummer bis " _
& max & " verwendet werden.", vbInformation, "Maximale Anzahl überschritten"
Else
max = maxEingabe
End If



'*********************** Verbindung zu Access-Datenbank herstellen
'Property-Set mit Connection Parameter
Set pPropSetAccess = New PropertySet
With pPropSetAccess
.SetProperty "DATABASE", g_Pfad_Datenbank
End With

'Access Workspace Factory erzeugen
Set pAccFact = New AccessWorkspaceFactory

'Verweis auf die IWorkspace-Schnittstelle
Set pAccWsp = pAccFact.Open(pPropSetAccess, hWnd)

'********************* auf Tabelle zugreifen *********************

Set pTable = pAccWsp.openTable("F1_TABELLE")

'Cursor über alle ausgewählten Objekte
Set pCursor = pTable.Search(pQueryFilter, False)
Set pRow = pCursor.NextRow

' QueryFilter erzeugen und Auswahlbedingung formulieren
Set pQueryFilter = New QueryFilter
pQueryFilter.WhereClause = "REF_ART = 'keine' " _
And "REFERENZINFO >= '" & min & "'" _
And "REFERENZINFO <= '" & max & "'"