Dim ds As New DataSet()
        Dim strCo$
        Dim path$ = "C:\Daten\"
        strCo = "Driver={Microsoft dBase Driver (*.dbf)};DBQ=" & path & _
          ";DriverID=533"
        Dim co As OdbcConnection
        Dim cmd As OdbcCommand
        Dim adp As OdbcDataAdapter
        Try
            co = New OdbcConnection(strCo)
            co.Open()
            Try
                cmd = New OdbcCommand()
                cmd.Connection = co
                cmd.CommandText = "SELECT * FROM dbase"
                adp = New OdbcDataAdapter(cmd)
                adp.Fill(ds)
                PrintDsValues(ds, "Dataset") 'Hier werden die Daten ausgelesen 
                ' und in eine Datei geschrieben
            Catch ex As Exception
                MsgBox(ex.ToString)
            Finally
                co.Close()
            End Try
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        Me.Close()