Dim sqlString As String
        Dim connectionString As String
        Dim xlsPath As String
 
        Dim ds As DataSet = New DataSet
        Dim dbConnect As OleDbConnection = New OleDbConnection
        Dim dbCMD As OleDbCommand = New OleDbCommand
        Dim dbAdapter As OleDbDataAdapter = New OleDbDataAdapter
 
        Try
 
            connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
              "Source=D:\test\DatenToCSV.xls;Extended Properties=Excel 8.0;" & _
              "HDR=YES;IMEX=1"
 
            MsgBox(connectionString)
            sqlString = "SELECT * FROM [Konfig]"
 
            dbConnect.ConnectionString = connectionString
 
            dbCMD.CommandText = sqlString
            dbCMD.Connection = dbConnect
            dbAdapter.SelectCommand = dbCMD
            dbAdapter.Fill(ds, "Konfig")
            dbCMD.Parameters.Clear()
 
 
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            dbCMD.Connection.Close()
        End Try