請教type mismatch的錯誤

Question

大家看看為什么運行到OA.SETCONN(CNN)的地方報type mismatch的錯誤呀﹗
VB
Dim CyOA As New OA.FreeForm
Dim Cnn As New ADODB.ConnectionCnn.ConnectionString = "provider=sqloledb;server=;database=;uid=sa;pwd="
Cnn.Open
OA.SetConn (Cnn)------------------------------------------
dll 文件如下
Option Explicit
Public conn As ADODB.ConnectionFunction SetConn(Cnn As ADODB.Connection)
Set conn = Cnn
End Function

Answer 1

Dim CyOA As New OA.FreeForm
Dim Cnn As New ADODB.ConnectionCnn.ConnectionString = "provider=sqloledb;server=;database=;uid=sa;pwd="
Cnn.Open
CyOA.SetConn (Cnn)

Answer 2

看样子没有错
你在dll工程中，做个form试验一下然后再看看呢

Answer 3

很简单，你定义的是一个函数，当然会报错，把你定义成过程，或者
dim temp 
temp=cuoa.setconn(cnn)

Answer 4

上面打错个字：
很简单，你定义的是一个函数，当然会报错，把它定义成过程，或者
dim temp 
temp=cyoa.setconn(cnn)