Forsat hjælp med SELECT Sætning

Fortsat prolem med min sætning:

Den kan ikke finde mit Recordset;
TypeFromExcel  = Tekst i DB'en
DNFromExcel = Tal i DB'en

Dim TypeFromExcel As String
Dim DNFromExcel As Long
Dim PNFromExcel As Long
   
ManTypeFromExcel = Sheets("Hovedark").Range("L33")
DNFromExcel = Sheets("Hovedark").Range("g_dDN_mm")
PNFromExcel = Sheets("Hovedark").Range("g_dDN_mm")
   
Dim StringSQL As String
Dim cnBellowDefaults As New ADODB.Connection
Dim rsBellowDefaults As New ADODB.Recordset

cnBellowDefaults.Provider = "Microsoft.Jet.OLEDB.4.0"
cnBellowDefaults.ConnectionString = "Data Source=C:\MCAU\DATA\MCAU menu datalister\MCAUdatabase.mdb;Persist Security Info=False"
cnBellowDefaults.Open

StringSQL = "SELECT * FROM StandardBellowDefaults WHERE [ManType] Like '" & TypeFromExcel & "' AND [DN] like " & DNFromExcel & ";"

rsBellowDefaults.CursorLocation = adUseClient
rsBellowDefaults.Open StringSQL, cnBellowDefaults, adLockReadOnly, adLockOptimistic