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