看过这样一个例子：
在标准模块中有如下代码：
声明部分：
Public temp, str, BS As String
Public adoCon As New ADODB.Connection
Public adoRs As New ADODB.Recordset
——————————————————————
Public Sub Main()
    adoCon.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=tsgl"
End Sub
——————————————————————————
Function cnn() As ADODB.Connection
    Set cnn = New ADODB.Connection
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_library.mdb;Persist Security Info=False"
End Function


在一个登录窗体中的load事件代码：
Private Sub Form_Load()
    Adodc1.ConnectionString = cnn.ConnectionString
    Dim rec
    Dim i As Integer
    rs.Open "select * from usertb", cnn, adOpenKeyset, adLockOptimistic
    rec = rs.RecordCount
    ReDim Asc(rec - 1)
    rs.MoveFirst
    For i = 1 To rec
        Combo.AddItem rs.Fields("名称")
        Asc(i - 1) = Val(rs.Fields("密码"))
        rs.MoveNext
        If rs.EOF Then Exit For
    Next
    rs.Close
End Sub

请教：
在标准模块中的那个是自定义函数吗？是个什么类型的？
在Private Sub Form_Load()中的第一行是调用这个函数吗？为什么是这种形式的调用？
也看得出是做数据连接，可就是不太理解。
先谢谢大家。

谢谢版主的解释。

就是不好理解Adodc1.ConnectionString = cnn.ConnectionString
按你说的这样子也能通过
Private Sub Form_Load()
   ' Adodc1.ConnectionString = cnn.ConnectionString
    Dim cnn1 As adodb.Connection
    Set cnn1 = cnn()
    Adodc1.ConnectionString = cnn1
   ...................
  .................

那我的咋不出错呢？

谢谢版主！需慢慢消化呀！