Dim conn As New SqlConnection("packet size=4096;Language=German;User" & _
  "ID=sa;Password=******;data source=nt2003;persist security info=False;Connect" & _
  "Timeout=3;initial catalog=Datenbank") 
 
conn.Open()
        Dim cmd As New SqlCommand
        cmd.Connection = conn
 
        '================================================================
        ' Run an INSERT..INTO command on the Northwind database to append
        ' the records from a table/query to an existing table in the Excel
        ' workbook.
        '================================================================
'Dieser Code funktioniert nicht!        
'Try
        ' cmd.CommandText = "INSERT INTO [Test1] IN 'C:\Excel.xls' 'Excel" & _
          "11.0;'" & "SELECT Postleitzahl, Ort, Kanton FROM Postleitzahlen"
        ' cmd.ExecuteNonQuery()
 
        '   Catch ex As Exception
        '        MsgBox(ex.ToString)
        '    End Try
        '======================================================================
        ' ====
        ' Run a SELECT..INTO command on the Northwind database to insert
        ' all the records from a table/query into a new sheet in the Excel
        ' workbook.
        '======================================================================
        ' ====
'Dieser Code bringt mir ein Fehler. Weiss aber nicht was ich damit anfangen 
' soll!  Wichtig die Datei Excel1.xls muss existieren!
        Try
           cmd.CommandText = "SELECT * INTO [Excel" & _
             "11.0;Database=C:\Excel1.xls].[Test1]" & "FROM Postleitzahlen"
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            conn.Close()
        End Try