【VB】操作ODBC-DAO方式操作只能查询，不能更新插入操作解决。

最近接手一个改善项目，需要从Access转化到SQL Server 2014，使用原有的ODBC连接方式只能查询，不能更新插入。网上一直找不到解决方案，然后自己测试一下使用ADO方式竟然可以连接了。具体问题还未找到，现在贴出例子代码，希望给自己一个帮助找出真正问题所在。

 Private Sub Command1_Click()
 On Error GoTo Err
 Dim db As Database
 Dim Rs As Recordset
 Dim Qry As QueryDef
         Set db = DBEngine().OpenDatabase("", False, False, _
       "ODBC;driver={SQL Server};server=(local);uid=sa;pwd=你的密码;database=数据库")

       Set Qry = db.CreateQueryDef("")
     With Qry
         .SQL = "SELECT * from P_STATUS;"
     End With

     Set Rs = Qry.OpenRecordset()
     With Rs
         Do While Not .EOF
         MsgBox !SEQNO, vbOKOnly + vbCritical, "提示"
         .MoveNext
         Loop
     End With

         'db.Updatable

       Dim intA As Integer
       intA =
         db.Execute "UPDATE P_STATUS SET STATUS = '2'", dbFailOnError '这里出错，不能更新
         Debug.Print "To Paris:", db.RecordsAffected
         db.Close
         Exit Sub
 Err:
     Print Err.Number
     Dim ss As String
     ss = Err.Description

         db.Close
         Exit Sub
 End Sub

 '数据源信息常量
  Const conn As String = "driver={SQL Server};server=(local);uid=sa;pwd=你的密码;Database=数据库"
  Const CONNECT_LOOP_MAX =  '一次执行connect操作，可以访问数据库的次数

  Private IsConnect As Boolean '标记数据库是否连接

  Private Connect_Num As Integer '标记执行Connect()函数后访问数据的次数

  Private cnn As ADODB.Connection '连接数据库的Connect对象

  Private re As ADODB.Recordset '保存结果集的Recordset对象

 '连接数据库
  Private Sub Connect()

  '如果连接标记为真，则返回。
  If IsConnect = True Then
    Exit Sub
  End If

  Set cnn = New ADODB.Connection '关键new用于创建新对象cnn

  cnn.ConnectionString = conn

  cnn.Open
  '判断连接的状态
  If cnn.State <> adStateOpen Then
    MsgBox "数据库连接失败"
    End
  End If

  '设置连接标识，表示已经连接到数据库
  IsConnect = True
 End Sub

 '断开与数据库的连接
 Private Sub DisConnect()
  Dim rc As Long

  If IsConnect = False Then
    Exit Sub
  End If
  '关闭连接
  cnn.Close
  '释放cnn
  Set cnn = Nothing
  IsConnect = False
 End Sub

 '使用Connect_Num控制数据连接
 Public Sub DB_Connect()
   Connect_Num = Connect_Num +
   Connect
 End Sub

 '使用Connect_Num控制数据断开
 Public Sub DB_Disconnect()
 If Connect_Num >= CONNECT_LOOP_MAX Then
   Connect_Num =
   DisConnect
  End If
  End Sub

 '强制关闭api方式访问俄的数据库，计数器复位
 Public Sub DBapi_Disconnect()
   Connect_Num =
   DisConnect
 End Sub

 '执行数据库操作语言
 'byval 就是按参数的值传递，再传递过程中，参数不会发生变化(也就是将参数值而不是将地址传递给过程的方式，这就使过程访问发哦变量的副本，过程不可改变变量的值)；
 '与之对应的是byref,指按参数的地址传值，byref可以省略
 Public Sub SQLExt(ByVal TmpSQLstmt As String)

  On Error GoTo Err:
   Dim cmd As New ADODB.Command '创建Command对象cmd

   DB_Connect '连接数据库

   Set cmd.ActiveConnection = cnn '设置cmd的ActiveConnect属性，指定与其关联的数据库连接

   cmd.CommandText = TmpSQLstmt '设置要执行的命令文本

   'MsgBox TmpSQLstmt

   cmd.Execute '执行命令

   Set cmd = Nothing

   DB_Disconnect '断开与数据库的连接
   Exit Sub

 Err:
     Dim ss As String
     ss = Err.Description
     Print ss
     DB_Disconnect '断开与数据库的连接
     Exit Sub

 End Sub

 '执行数据库查询语句
 Public Function QueryExt(ByVal TmpSQLstmt As String) As ADODB.Recordset

   Dim rst As New ADODB.Recordset '创建Rescordset对象rst

   DB_Connect '连接数据库

   Set rst.ActiveConnection = cnn '设置rst的ActiveConnection属性,指定与其相关的数据库的连接

   rst.CursorType = adOpenDynamic '设置游标类型

   rst.LockType = adLockOptimistic '设置锁定类型

   rst.Open TmpSQLstmt '打开记录集

   Set QueryExt = rst '返回记录集

 End Function

 Private Sub Command2_Click()
     Set re = QueryExt("SELECT * from P_STATUS;")
     With re
         Do While Not .EOF
         MsgBox !SEQNO, vbOKOnly + vbCritical, "提示"
         .MoveNext
         Loop
     End With
     Call SQLExt("UPDATE P_STATUS SET STATUS = '8'")
 End Sub