很慢。根据查询vbnet相关资料得知，vbnet更新sql数据库速度是很慢的。vbnet的sql语句能查询到库中的数据，但是速度是相当的慢。
目前创新互联公司已为上千的企业提供了网站建设、域名、虚拟空间、网站改版维护、企业网站设计、泉山网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
以下是模块模块1
完整的模块
进口System.Data
进口System.IO
进口System.Data.OleDb
CN作为新OleDb.OleDbConnection （供应商= Microsoft.Jet.OLEDB.4.0;数据源= C：\ ACCESS数据库的。mdb“）'定义连接---改变到实际的数据库路径和名称
DataBaseRST上的作为整数使用返回数据库执行的结果
的公共功能DataModify（BYVAL str作为字符串）作为布尔数据库的操作功能
昏暗的cmdinsert作为新的OleDbCommand
尝试
cmdinsert.CommandText = STR
是用来返回cmdinsert.Connection的= CN
如果cn.State = ConnectionState.Closed cn.Open（）
DataBaseRST cmdinsert.ExecuteNonQuery（）的执行结果 BR / cn.Close（）
，则返回true
赶上前为异常
MessageBox.Show（Err.Description，“错误”，MessageBoxButtons.OK，MessageBoxIcon.Error）
返回False
尝试
端的功能
功能搜索（BYVAL作为字符串，BYVAL的DGV作为DataGridView的）作为布尔查询STR ---查询命令，DGV ---海峡和DataGridView控件来显示数据
昏暗的结核病新的DataTable
昏暗的AP尝试作为的新OleDb.OleDbDataAdapter（STR，CN）
ap.Fill（TB）
DGV作为数据源= TB
返回TRUE，“
抓住前异常
MessageBox.Show（Err.Description，”错误“，MessageBoxButtons.OK，MessageBoxIcon.Error）
则返回false /末尝试
功能
前端模块
以下是通话
DataModify（“插入AA值吗？（'1 '，'2'）“）-------这里是数据库更新操作。
搜索（”选择BB AA“DataGridView1的）-----------数据表的查询操作。
SQL语句：
"update 人事 set [年龄]=[年龄]-1 where 身份证='" TxtID.Text "'"
需要声明使用CommandBuilder对象，你是 SQL 数据库还是 ACCESS 数据库，这两者的对象不一样的。
对于：SQL server
Dim Mybuilder As SqlCommandBuilder = New SqlCommandBuilder(da)
da.Update(dt) '使用Update方法实现更新到数据库
对于：ACCESS
Dim Mybuilder As OleDbCommandBuilder = New OleDbCommandBuilder(da)
da.Update(dt) '使用Update方法实现更新到数据库