Dim vDSDataSet As New System.Data.DataSet()
    Dim vDbCmdDetail As New OleDbCommand("SELECT * FROM Tabellenname", vgConDb)
    'Dim vDbAdpDetail As New OleDbDataAdapter(vDbCmdDetail)
    'vDbAdpDetail.Fill(vDSDataSet, "Tabellenname")
 
    ' Hier die Tabelle mit dem DataReader laden. -->
    Dim reader As OleDbDataReader = vDbCmdDetail.ExecuteReader()
    Dim tab As New DataTable("Tabellenname")
    tab.Load(reader)
    reader.Close()
    vDSDataSet.Tables.Add(tab)
    '<--
 
    TextBox1.DataBindings.Add("Text", vDSDataSet.Tables("Tabellenname"), _
      "Datenbankfeld")
 
    ' MaxLength setzen
    TextBox1.MaxLength = vDSDataSet.Tables("Tabellenname").Columns( _
      "Datenbankfeld").MaxLength

___________________________________________________________________________________________
Jeder, der behauptet das gesamte .NET-Framework zu kennen ist entweder verrückt oder Sheldon Cooper