Me.Cursor = Cursors.WaitCursor
        MyDataset.VWFBDI_EXPORT_F_G_K.Clear()
        Me.DAVWEXPORT.Fill(Me.MyDataset.VWFBDI_EXPORT_F_G_K)
 
        Me.Cursor = Cursors.Default
        'Bestimmt Kriterien für den Datei-Dialog
        Dim save As New SaveFileDialog
        save.Filter = ("Text-Dateien (*.er2)|*.er2")
        save.Title = ("Speichern unter")
 
        save.FileName = "001Willi"
        save.ShowDialog()
 
        Dim Save_Datei As String = save.FileName
 
        'Setzt das Code-Format auf ASCII
        Dim sw As New System.IO.StreamWriter(Save_Datei, False, _
          System.Text.Encoding.Default)
        Dim values As System.Text.StringBuilder
        For Each dbRow As DataRow In MyDataset.Tables( _
          "VWFBDI_EXPORT_F_G_K").Rows
            values = New System.Text.StringBuilder
            For Each dbCol As DataColumn In MyDataset.Tables( _
              "VWFBDI_EXPORT_F_G_K").Columns
                values.Append(dbRow(dbCol.ColumnName).ToString.PadRight(0))
            Next
            sw.WriteLine(values.ToString)
        Next
        sw.Flush()
        sw.Close()
        MsgBox("Die Text-Datei wurde erfolgreich, nach " & Save_Datei & "" & _
          "exportiert!", MsgBoxStyle.Exclamation, "Erfolgsmeldung")