Fejl i rs.Open strSQL, strCnn, , , adCmdText

Hvad går der galt i min kode?

Jeg får en fejlmeddelelse om at der ikke er angivet nogen værdi for en eller flere parametre i sætningen:

rs.Open strSQL, strCnn, , , adCmdText

Her er hele koden:

******************************************************

Option Explicit
Dim m_DBConnection As ADODB.Connection
Dim strCnn As String

Private Sub Command1_Click()

Dim i As Integer
Dim rs As ADODB.Recordset
Dim strSQL As String

strSQL = \"SELECT KUNDE.Kundenr, KUNDE.Navn, KUNDE.Udvalgt FROM POSTBY INNER JOIN KUNDE ON POSTBY.Postnr = KUNDE.Postnr Where (((POSTBY.P_zone) = \'1\')And ((KUNDE.K_kategori) = \'Grøn\') And ((KUNDE.Udvalgt) = 0) And ((DateDiff(d, [KUNDE]![Sidste_besøg], Now()) > 7 * [KUNDE]![B_Interval]) = -1)) ORDER BY KUNDE.Sidste_besøg\"
Set rs = New ADODB.Recordset
rs.Open strSQL, strCnn, , , adCmdText

\'Do Until rs.EOF
    For i = 0 To 3
\'        lblMaGrønneKundenumre(i) = rs(\"Kundenr\")
        lblMaGrønneKundenumre(i) = rs(\"Navn\")
\'        rs(\"Udvalgt\") = True
\'    Debug.Print rs!Postnr  \' Display the name and address.
\'    Debug.Print rs!Navn
    rs.MoveNext    \' Get the next record.
    Next
\'Loop
rs.Close

\'
End Sub

Private Sub Form_Load()

strCnn = \"Provider=Microsoft.Jet.OLEDB.4.0;\" & _
        \"Data Source= C:\\Documents and Settings\\\" & _
        \"Jacob Alex Petersen\\Dokumenter\\www.japlex.dk\\\" & _
        \"Customer Visit Manager\\CVM.mdb\"
Set m_DBConnection = New ADODB.Connection

m_DBConnection.Open strCnn

End Sub

******************************************************