这是什么函数？解决方案

这是什么函数？


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


[解决办法]
cnn是对象型,一个连结对象.
[解决办法]
参考一下ＡＤＯ的手册。ＣＳＤＮ上有。你可以下载。