---

dim dt as new datatable
Dim icmd As SqlDataAdapter = New SqlDataAdapter(sqltext, iconn)
icmd.Fill(dt)
如果要选记录
dim sr as datarow
sr=dt.select("字段=值")
然后用sr("字段名")来修改值