Excel in Dataset speichern

[realYeti]

Hy Leute,

folgendes Problem:
Ich möchte ein Excel File in eine Dataset laden, und von dort aus dann die Tables in einer XML-Struktur Row für Row ausgeben.

Das rausschreiben ist das kleinste Problem, aber leider bekomme ich irgendwie die Verbindung nicht hin....

Folgendes hab ich mir zusammengesucht:

BL:

Public Class Sheet

    Private mConnectionString As String
    Private mexcelsheet As dsExcel.dtDataTable1DataTable

    Sub New(ByVal ConnectionString As String)
        mConnectionString = ConnectionString
    End Sub
    Public ReadOnly Property excelsheet() As dsExcel.dtDataTable1DataTable
        Get
            'Erstellt eine Leere Tabelle falls keine Daten verfügbar sind
            If mexcelsheet Is Nothing Then
                mexcelsheet = New dsExcel.dtDataTable1DataTable
            End If
            Return mexcelsheet
        End Get
    End Property
    Public Sub Load()

        Dim taSheet As New dsExcelTableAdapters.dtDataTable1TableAdapter
        taSheet.Connection.ConnectionString = mConnectionString
        Dim dsExcelSheet As New dsExcel
        Try
            taSheet.Fill(dsExcelSheet.dtDataTable1)
        Catch ex As Exception
            Throw New ApplicationException("Fehler beim laden der Daten", ex)
        End Try
        If dsExcelSheet.dtDataTable1.Rows.Count > 0 Then
            mexcelsheet = dsExcelSheet.dtDataTable1
        Else
            mexcelsheet = New dsExcel.dtDataTable1DataTable
            Throw New ApplicationException("Keine Daten vorhanden")
        End If

    End Sub
End Class

UI:

Public Sub getdata()
        Dim DatenFiller As New Sheet(My.Settings.ConnectionString)
        Try
            DatenFiller.Load()
            Elementbindung(DatenFiller)

            If DatenFiller.excelsheet.Rows.Count = 0 Then
                MsgBox("Gibts nix")
                Return
            End If
        Catch ex As Exception
            Return
            MsgBox(ex.Message)
            Exit Sub
        End Try
    End Sub

    Private Sub Elementbindung(ByVal DatenFiller As Sheet)
        Try
            Me.DataGridView1.DataSource = DtDataTable1DataTableBindingSource
        Catch ex As Exception
        End Try
    End Sub

Als Fehler bekomm ich dann :

ERROR [IM006] [Microsoft][ODBC Driver Manager] Fehler bei SQLSetConnectAttr-Aufruf für Treiber

Irgendwie kommt mir des voll Spansich vor weil im ConnectionString "Dsn=Excel-Dateien" drinne steht - sonnst nix.

Wäre echt genial wenn Mir da einer nen Tip geben würde wie mans richtig macht, oder wo der Fehler liegt.

So long

Yeti