SELECT Sætning med ADO

Hvad med denne her:

    Dim cnBellowDefaults As New ADODB.Connection
    Dim rsBellowDefaults As New ADODB.Recordset
   
    Dim StringSQL As String

    Set cnBellowDefaults = New ADODB.Connection
    Set rsBellowDefaults = New ADODB.Recordset
       
    cnBellowDefaults.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MCAU\DATA\MCAU menu datalister\MCAUdatabase.mdb;Persist Security Info=False"

    cnBellowDefaults.Open StringSQL
 
    StringSQL = "SELECT * FROM StandardBellowDefaults WHERE Type = " & Sheets("Hovedark").Range("L33") & ""
 
    rsBellowDefaults.Open StringSQL, cnBellowDefaults, adOpenKeyset, adLockOptimistic, adCmdText

Er der noget galt med den????

Opretter lige en ny!