紧急求助：“run-time error'-2147168227(8004d01d)'没有指定容量，不能创建新事务”

Question

（vb＋Sqlserver：）    AdoConn.BeginTrans
    '.......
    sqlstring = _
      "DELETE FROM [USER] WHERE USER.UserID='" & UserIDSelected & "'"
    '.......        
    sqlstring = _
      "INSERT INTO [USER] VALUES ('" & Trim(TxtUserID.Text) & "','" & Trim(TxtUserName.Text) & "'," & _
        "'" & strDepID & "','" & strDepName & "'," & _
        "'" & PassCode & "'," & longPropertyID & ",'" & strUserPropertyName & "')"
        if 无异常
        '进行事务处理
            AdoConn.CommitTrans
         Else
            '如果有错误，则取消修改并结束事务
            '------------------------------
            AdoConn.RollbackTrans
         End If