...
   DbConn = New OleDb.OleDbConnection(GetConnString(DbPfad))
   dvPerson = Nothing
   dsPerson = New DataSet()
   Try
     DbConn.Open()
     daPerson = New OleDb.OleDbDataAdapter("SELECT * FROM Person", DbConn)
     daPerson.Fill(dsPerson, "Person")
     dvPerson = New DataView(dsPerson.Tables("Person"))
   Catch ex As Exception
     MsgBox(ex.Message)
   End Try
   ....
   For Each col As DataColumn In dsPerson.Tables("Person").Columns
      Dim ColName As String = col.ColumnName
      Dim ColType As String = col.DataType.Name
      Dim ColWidth as Integer = col.maxlength ' bringt immer -1
      ' eingabe erforderlich ???
   next