请教一个制作dll的问题

[jfbao]

Private mvarArrivalTimes As Integer '局部复制
Private mvarRoomNights As Integer '局部复制
Private mvarNoShow As Integer '局部复制
Private mvarCancellation As Integer '局部复制
Private mvarAccumulationA As Single '局部复制
Private mvarAccumulationB As Single '局部复制
Private mvarAccumulationC As Single '局部复制
Private mvarAccumulationD As Single '局部复制
Private mvarScore As Integer '局部复制
Public Function SearchGuest(Conn As Variant, ByVal StrSql As String，Msg As string) As Variant
Dim SearchGuestRs As New ADODB.Recordset
On Error GoTo SearchGuest_Error
SearchGuestRs.Open StrSql, Conn, 3, 1
If Not SearchGuestRs.BOF Then
Set SearchGuest = SearchGuestRs
End If
ExitFunction
SearchGuest_Error:
Msg=Err.Description
End Function
这么个类怎么写成dll啊。可以指导一下吗？谢谢

[lycey]

关注！！！

[leolan]

創建一個Active DLL工程,Compile之後就是Active dll文件了.

[szmickylee]

调用的话就引用或者CreateObject()就可以了

[cosio]

打个VB，建一个Active DLL工程,Compile之后就是. dll文件了.

[officecn]

新建一个ACTIVEDLL工程，添加一个类模块，把代码复制到模块里，编译后就可以了。

[lvwaike]

打个VB，建一个Active DLL工程,Compile之后就是. dll文件了
或者用
CreateObject()都可以的，