On Error GoTo Err_Handle
Dim objSQLConn As New ADODB.Connection
objSQLConn.Open (strConnectionString)
objSQLConn.BeginTrans
'获得SqlServer记录集
strSelectString = "Select * from " & strSqlTableName
Dim objSqlRecorder As New ADODB.Recordset
objSqlRecorder.LockType = adLockOptimistic
objSqlRecorder.CursorType = adOpenKeyset
Set objSqlRecorder = objSQLConn.Execute(strSelectString)
........获得更新字符串
objSQLConn.Execute (strUpdate)
objSQLConn.CommitTrans
Exit Sub