顺序读出dataset   中的每一个数据  
    Dim   row   As   Integer  
                  Dim   col   As   Integer  
                  Dim   rolesql   As   String   =   "select   *   from   role"  
                  Dim   ds   As   New   DataSet  
                  Dim   mdb   As   New   MconnfromDB  
                  ds   =   mdb.GetDataFromDB(rolesql)  
                  For   row   =   0   To   ds.Tables(0).Rows.Count  
                          For   col   =   0   To   ds.Tables(0).Columns.Count  
                                  Axrole.Cell(row,   col).Text   =   ds.Tables(0).Rows(row)(col).ToString  
                          Next  
                  Next   row  
                  Axrole.CtlRefresh()  
  Axrole     一个表格控件