dim conn as .........
dim strsql as string="select * from mm"
dim ds as dataset=new dataset()
dim da as new Oledaadapter()
da.selectcommand=new oledbcommand(strsql,conn)
da.fill(ds."table")
dim db as new oledbcommandbuilder(da)
dim dr as datarow
dr=ds.tables("table").rows(0)
dr("name")="xxxxxxxxx"
da.update(ds,"table")