帮我看看错在哪里了？在线等，解决后立刻结贴

Question

我做一C/S结构的库房管理系统，用ADO连接数据库，并且将ADO连接数据库语句写在了模块里。对具体表的操作封装在类里，才刚开始就有错，本人是菜鸟级，希望人家能够说的清楚一点，不要用MSDN直接打发了事。多谢
模块中的语句如下：
Public cnn1 As ADODB.Connection
Public rs1 As ADODB.RecordsetPublic Sub cnn()
    Dim strcnn As String
    Dim strservername As String
    Dim strserverpwd As String
    Dim intip As String
    
    strservername = "sa"
    strserverpwd = "sa"
    intip = "192.168.0.16"
    
    strcnn = "Provider=SQLOLEDB.1;Password=" & strSeverpassword & ";Persist Security Info=True;User ID=" & strSevername & _
         ";Initial Catalog=tzg;Data Source=" & intip & ""
    
    Set cnn1 = New ADODB.Connection
    cnn1.Open strcnn
End SubPublic Sub rsopen1(sql As String, adopenkeyset As Integer, adlockopeimistric As Integer)
    Set rs1 = New ADODB.Recordset
    rs1.CursorLocation = aduserclient
    On Error GoTo Err
    rs1.Open sql, cnn1, adopenkeyset, adLockOptimistic
    Exit Sub
Err:
   MsgBox "打开表失败", vbOKOnly, "提示"
End Sub表操作的类：
Public yh_id As String
Public yh_mz As String
Public yh_mima As String
Public yh_qx_kj As Boolean
Public yh_qx_cg As Boolean
Public yh_qx_kg As Boolean
Public yh_qx_cx As Boolean
Public yh_qx_xg As Boolean
Public yh_qx_ys As BooleanPublic Sub init()
    yh_id = ""
    yh_mz = ""
    yh_mimz = ""
    yh_qx_kj = False
    yh_qx_cg = False
    yh_qx_kg = False
    yh_qx_cx = False
    yh_qx_xg = False
    yh_qx_ys = False
End SubPublic Sub insert()
    cnn()   '错在这里，写完cnn()后，系统显示红色，还要求加=号，表示语句没有结束，这到底是怎么回事？应该怎么解决？
    
End Sub
错在写完cnn()后，系统显示红色，还要求加=号，表示语句没有结束，这到底是怎么回事？应该怎么解决？

Answer 1

Public Sub insert()
    cnn()   '错在这里，写完cnn()后，系统显示红色，还要求加=号，表示语句没有结束，这到底是怎么回事？应该怎么解决？
    
End Sub
=========================================
加个Call 或把括号去掉：Public Sub insert()
    Call cnn() 
    '或者 cnn
End Sub

Answer 2

不要给写括号呀！！过程你写括号做什么，要不写call cnn()