Public Class ExtendedDataTable
    Inherits DataTable
    Public ToolBars As New ArrayList
    Public ContextMenus As New ArrayList
    Public Selection As New ArrayList
    Public AvailableColumns() As String
End Class

   Dim myExtendedDataTable as ExtendedDataTable
   Dim da As OleDbDataAdapter = New OleDbDataAdapter
   Dim ds As DataSet = New DataSet
   da.Fill(ds, rs, "Table1")
   myExtendedDataTable = CType(ds.Tables(0), ExtendedDataTable)