Hente data via ADO - fejl i koden

Nu fik jeg tidligere svar på mit spørgsmål vedr. oprettelse af forbindelsen til min system DSN.
Men jeg kan stadig ikke hente mine data. Kan nogen fortælle mig, hvad der er galt i nedenstående kode?
Der kommer fejl i linien med "rs.Open rsSQL".

Sub HentDataReturvarerFraSplit()

Dim rs As New ADODB.Recordset
Set Connect = CreateObject("adodb.connection")
Connect.Open "dsn=calcspec;uid=calcspec;pwd=calcspec"

rsSQL = "SELECT XAL_SUPERVISOR_LAGERKART.VARENUMMER,  " + _
        "Sum(CDbl([ANTAL])) AS STK,  " + _
        "Sum(CDbl([LINIEBELXBDKR])) AS BELØB " + _
        "FROM XAL_SUPERVISOR_LAGERKART  " + _
        "INNER JOIN XAL_SUPERVISOR_LAGERPOST  " + _
        "ON (XAL_SUPERVISOR_LAGERKART.DATASET = XAL_SUPERVISOR_LAGERPOST.DATASET)  " + _
        "AND (XAL_SUPERVISOR_LAGERKART.VARENUMMER = XAL_SUPERVISOR_LAGERPOST.VARENUMMER) " + _
        "WHERE (((XAL_SUPERVISOR_LAGERPOST.ORDRESAG) Like ""*Ø-RETUR*"")  " + _
        "AND ((XAL_SUPERVISOR_LAGERPOST.DATOFYSISK) Between #10/1/2003# And #1/31/2004#)  " + _
        "AND ((XAL_SUPERVISOR_LAGERKART.DATASET)=""DAT"")) " + _
        "GROUP BY XAL_SUPERVISOR_LAGERKART.VARENUMMER; "


rs.Open rsSQL
Sheets("data retur").Cells.Delete
If Not rs.EOF Then
  With Sheets("Data").[a1]
    For Each Felt In rs.Fields
      .Offset(0, i) = Felt.Name
      i = i + 1
    Next
    .Resize(1, rs.Fields.Count).Font.Bold = True
    .Offset(1, 0).CopyFromRecordset rs
    .Resize(1, rs.Fields.Count).EntireColumn.AutoFit
  End With
End If
rs.Close
Set rs = Nothing
       
End Sub



Christina