vb无效授权说明，麻烦大家帮帮忙!!!!!谢谢

'连接SQL服务器
Public Function sqlConnect(ByVal cnThis As ADODB.Connection, ByVal strServer As String, ByVal strUser As String, ByVal strPass As String, Optional ByVal strDataBase As String = "")
    Dim strSQL As String
    '生成连接字符串
    strSQL = "provider=sqloledb;server=" & strServer & ";user id=" & strUser & ";password=" & strPass
    If strDataBase <> "" Then strSQL = strSQL & ";database=" & strDataBase  '如果需要连接到数据库
    cnThis.Open strSQL（这里出错）
End Function --------------------编程问答-------------------- 连接字符串有问题。
strSQL最好命名为strConnString --------------------编程问答-------------------- sqlConnect函数声明好像不对吧？没说明在哪个dll库中啊，楼主确定对吗？ --------------------编程问答-------------------- 工程->引用：Microsoft ActiveX Data Object Library 2.8 
加一行：

Dim cnThis As ADODB.Connection --------------------编程问答--------------------

引用 2 楼 laoli6666 的回复:

sqlConnect函数声明好像不对吧？没说明在哪个dll库中啊，楼主确定对吗？

同学都没有知道的。你懂那个3709 这个错误么？那个CNmain 又是什么啊？？ --------------------编程问答--------------------

引用楼主 junezqiong 的回复:

'连接SQL服务器
Public Function sqlConnect(ByVal cnThis As ADODB.Connection, ByVal strServer As String, ByVal strUser As String, ByVal strPass As String, Optional ByVal strDataBase As String = "")
  Dim s……

我试过了还是不行。

补充：VB ,  数据库(包含打印，安装，报表)