'''声明数据库连接字符串和 SQL命令字符串
Dim strConnection As String = "data source=localhost;initial catalog=DBName;user id=sa;password=yourpassword"
Dim strSQL As String = "Select * from [DataTableName]"
''''用于承载数据的数据表
Dim tblData As New DataTable
'''声明并构造DataAdapter 和commandBuilder对象
Dim objDA As New SqlClient.SqlDataAdapter(strSQL, strConnection)
Dim objCB As New SqlClient.SqlCommandBuilder(objDA)
'''填充数据
objDA.Fill(tblData)
'''更改部分数据
tblData.Rows(0).Item("时间") = Now.ToString
'''更新数据库
objDA.Update(tblData)