..............
dim dt as datatable=new datatable()
dim conn as oledaconnection=new ......
conn.open()
dim myadapter as oledbdataadapter=new ........
dim cmd as oledbcommand=new oledbcommand("insert into table(field) values (@field)",conn)
cmd.parameters.item("@field").sourcecolumns=dt.columns("filed").columnsname
nyadapter.updata(dt)
conn.close()