关于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类型变量，

声明之后就可以使用。