看过这样一个例子：
在标准模块中有如下代码：
声明部分：
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()中的第一行是调用这个函数吗？为什么是这种形式的调用？
也看得出是做数据连接，可就是不太理解。
先谢谢大家。

Function cnn() As ADODB.Connection

公用函数. 返回值的类型是一个类.
因为是一个函数,所以可以写在表达式的右边.

所以这样使用是合法的
Adodc1.ConnectionString = cnn.ConnectionString

但不建议这样用.
因为每次引用cnn时会产生一个新的数据库连接,造成新的开销.

建议这样使用:
dim cnn1 as adodb.connection

set cnn1=cnn()
然后使用cnn1 这个变量.

谢谢版主的解释。

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

    Dim cnn1 As adodb.Connection
    Set cnn1 = cnn()
    Adodc1.ConnectionString = cnn1.ConnectionString

那我的咋不出错呢？

类有默认属性.所以不出错.

如 textbox 的默认属性是 text

所以,

  i= text1
 和
  i=text1.text

是相同的,均不出错,但建议使用后一种写法,可读性的更好.

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