Hente fra database i Excel

Jeg prøver at køre en SQL-forespørgsel med nedenstående kode, men kan simpelthen ikke få det til at virke. Er der nogen, der har forslag til at få det til at virke? Jeg får fejlmeddelelsen "forbindelsen kan ikke bruges til at udføre denne handling. den er enten lukket eller ugyldig i denne sammenhæng".



Public Sub Prøv()

    Dim rs As New ADODB.Recordset
   
    Set rs = Database.SQLSelect("SELECT * FROM tabel")
   
    MsgBox rs.Fields.Count

End Sub



Database.bas:
----------------

Public Connection As New ADODB.Connection

Public Function Connect() As ADODB.Connection
    Connection.Open "DSN=dbnavn;UID=brugernavn;PWD=kodeord;"
End Function

Public Function SQLSelect(SQL As String) As ADODB.Recordset
    Dim Connection As New ADODB.Connection

    If Connection.State <> 1 Then
        Database.Connect
    Else
        MsgBox "Der er allerede forbindelse"
    End If
   
    Set SQLSelect = New ADODB.Recordset
   
    With SQLSelect
        .CursorLocation = adUseServer
        .Open SQL, objConnection, adOpenForwardOnly
    End With
End Function