关于VB方法返回值为值类型时，出现要求对象的理解

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

 

'更新数据库操作
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类型变量，
声明之后就可以使用。