Der Vorgang ist für ein geschlossenes Objekt nicht zugelassen

Public conn As ADODB.Connection
Sub sql()

            Dim conn As New ADODB.Connection
            Dim record As New ADODB.Recordset
            Dim xsel As String
           
    
            xsel = "begin " & _  
                    "declare @lager nchar(10) " & _  
                    "declare @number int " & _  
                    "set @number = 23752 " & _  
                        "select @lager = dbo.speditionen.warehouse from dbo.speditionen where dbo.speditionen.number =  @number " & _  
                            "if @lager = 'x' " & _  
                                "begin " & _  
                                "select [dbo].warehouse.warehouse " & _  
                                "from dbo.warehouse " & _  
                                "where dbo.warehouse.number_warehouse = @number " & _  
                                "End " & _  
                            "Else " & _  
                                "begin " & _  
                                "Print '###e' " & _  
                                "End " & _  
                    "End "  

            
                    conn.Open "dsn=PalKonto;Uid=XXX;Pwd=XXX"  
                    
                    record.Open xsel, conn
                       
                                
                                If record.EOF = False Then
                                    
                                    MsgBox "Daten vorhanden"  
                                
                                End If
                                
                    
                    record.Close
                    conn.Close
                    Set conn = Nothing
                    Set record = Nothing


End Sub