自定义类中的function返回对象错误

Question

Private cnMyDB As New ADODB.ConnectionPrivate rsMe As New ADODB.RecordsetPublic Function DBConnect(strPassword As String, strUserId As String, strSource As String, strServerName As String) As ADODB.ConnectionstrSQL = "Provider=MSDASQL.1; Password=" & strPassword & ";Persist Security Info=True;User ID=" & strUserId & ";Data Source=" & strSource & ";Initial Catalog=" & strServerName cnMyDB.Open strSQL
 
 DBConnect = cnMyDB
 
End Function
上面是自定义类，下面是调用测试Private cnMyDB As New ADODB.Connection
Private rsMe As New ADODB.RecordsetPrivate Sub Command1_Click()
Dim obj As New DBManager
Dim str As String
cnMyDB = obj.DBConnect("HOMEPAGE", "HOMEPAGE", "odbc", "")
Text1.Text = str
End Sub这句报错， DBConnect = cnMyDB
请问高手该怎么改

Answer 1

这个没有了  set DBConnect as new ADODB.Connection 
             DBConnect = cnMyDB
    

Answer 2

用set语句：
set DBConnect = cnMyDBset cnMyDB = obj.DBConnect("HOMEPAGE", "HOMEPAGE", "odbc", "")

Answer 3

不用：
Private cnMyDB As New ADODB.Connection这样：
Private cnMyDB As  ADODB.Connection
即可