今天写代码时，要写一个带返回值的方法，如下：

'更新数据库操作
Public Function ExecuteCommand(ByVal strsql As String,_
                    ByVal dbcn As ADODB.Connection,_
                    Optional ByVal cmdType As ADODB.CommandTypeEnum = adCmdText _
                    ) As Long
     '截获错误
    On Error GoTo Err1
    
        Set cmd.ActiveConnection = dbcn
        
        With cmd
         .CommandText = strsql
           .CommandType = cmdType
         End With
         '必须设置一个RecordSet类型的对象来接收，否则lngRecs的返回结果不正确
         Set rs = cmd.Execute(lngRecs)
         Set ExecuteCommand = lngRecs
         Exit Function                       '错误处理'增加这行（必须增加）
Err1:
    MsgBox "出现异常错误：" & vbCrLf & "错误编号：" & Err.Number & " 错误描述：" & Err.Description
    
    '返回出错语句的下一句继续执行余下的代码
    Resume Next
End Function

当调用这个方法时，弹出 编译错误，要求对象的错误框。 从网上找了好久，也没找到类似的问题， 刚开始以为是 cmd.Execute (lngRecs） 的错误，以为是类型定义出错了。 后来把 cmd.Execute (lngRecs） 注释掉后，把红色部分的代码随便赋了一个整形值， 执行程序，还是错误。 后来 想到返回值为Long，是值类型，不是对象类型，所以应该不用Set， 把Set去掉之后，调用方法，成功！ 结论： 只有对象类型的变量赋值才用Set，值类型的变量可以直接赋值。 也就是说只有能New的类型才能用Set。 vb中set语句的意思就是：将对象引用赋给变量或属性。 dim a as recordset '声明对象句柄 set a = new recordset '给对象分配内存空间，实例化、创建新的对象。 set之后a才可以使用。 dim b as Long '声明Long类型变量， 声明之后就可以使用。