Dim CNX As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + _
  "C:\Dokumente und Einstellungen\...\Desktop\Test.xls " + ";Extended" & _
  "Properties=Excel 8.0"
            Dim ConX As New OleDb.OleDbConnection(CNX)
 
            Dim table As New DataTable
            table = Me.DataGrid1.DataSource
 
            Dim CreateString As String = "INSERT INTO [Tabelle1$](A1) VALUES (" & _
              "table)"
            Dim cmdX As New OleDb.OleDbCommand(CreateString, ConX)
 
 
            Dim DA As New OleDb.OleDbDataAdapter(sSqlSuchstring, ConX)
            Dim myCmdB As OleDb.OleDbCommandBuilder = New _
              OleDb.OleDbCommandBuilder(DA)
            Try
               ConX.Open()
               cmdX.ExecuteNonQuery()
               myCmdB.GetInsertCommand()
               DA.Update(clsSettings.DS_Filter, tblKonditionen)
            Catch ex As Exception
               MsgBox(ex.Message)
            End Try
            ConX.Close()