Dim oCon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
          "Source=" & source & "; Persist Security Info=False")
...
 
        Dim SQL_tdi As String = "SELECT * FROM DSTabelle2"
 
        Dim da_tdi As New OleDbDataAdapter(SQL_tdi, oCon)
        Dim cmdB_tdi As New OleDbCommandBuilder(da_tdi)
        Dim ds_tdi As New DataSet
        Dim iRow As Integer = 1
        Dim iCol As Integer
 
        Try
            da_tdi.Fill(ds_tdi, "DSTabelle2")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
...
 
        Dim dt_tdi As DataTable = ds_tdi.Tables("DSTabelle2")
        Dim dr_tdi As DataRow
 
 
        For Each dr_tdi In dt_tdi.Rows
 
            For iCol = 0 To dt_tdi.Columns.Count - 1
                xlSheet.Cells(iRow, iCol + 1).Value = dr_tdi(iCol)
            Next iCol
            iRow = iRow + 1
 
        Next

Dim cSource As String
cSource = App.Path & _
    IIf(Right$(App.Path, 1) <> "\", "\", "") & _
    "books.mdb"
 
Dim cTarget As String
cTarget = App.Path & _
    IIf(Right$(App.Path, 1) <> "\", "\", "") & _
    "Books.xls].[Table1]"
 
Dim oCon As ADODB.Connection
Set oCon = New ADODB.Connection
Dim cSQL As String
 
With oCon
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
        & _
        "Data Source=" & cSource & ";" & _
        "Persist Security Info=False"
 
    .Open
 
    cSQL = "SELECT " & _
        "[Title],[URL],[ISBN],[Picture],[Pages],[CD],[Year] " & _
        "" & _
        "INTO [Excel 8.0;Database=" & cTarget " " & _
        "FROM [Books]"
 
    .Execute cSQL
End With