dim dt as new datatable()
dim ds as new dataset()
dim ss as integer
mycomm.commandtext="select max(userid) maxuserid from users"
myadp.fill(dt)
ds.tables.add(dt)
ss=ds.tables(0).rows(0).item("maxuserid").to...
mycomm.commandtext="insert into teacher (userid) values (ss)"