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