' ### Hinzufügen einer Tabelle zu einem DataSet (unter Angabe eines 
' Connection-Objekts)
    Overloads Sub AddToDS(ByVal Name As String, ByVal Conn As OleDbConnection, _
      ByVal SQL As String)
        DA_all = New OleDbDataAdapter(SQL, Conn)
        DA_all.Fill(DS_all, Name)
    End Sub