Hjælp med ADO Connection.

Jeg har denne finde kode, men den stopper her:
rsBellowDefaults.Open StringSQL, cnBellowDefaults, adLockReadOnly, adLockOptimistic

og skriver:
Run-time error '-2147217904 (80040e10)':
Der er ikke angivet nogen værdi for en eller flere kriterier parametre.

Her er min kode:
Public Sub LookForBellowDefaults()

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 Type Like Punch"

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

If rsBellowDefaults.State = adStateOpen Then rsBellowDefaults.Close
Set rsBellowDefaults = Nothing
If cnBellowDefaults.State = adStateOpen Then cnBellowDefaults.Close
Set cnBellowDefaults = Nothing

End Sub