我现在做着一个"学生信息管理系统" 其中有一段公用模块代码如下:
Public Function executesql(ByVal sql As String, msgstring As String) As adodb.Recordset
Dim cnn As adodb.connection
Dim rst As adodb.Recordset
Dim stokens() As String
On Error GoTo executesql_error
stokens = Split(sql)
Set cnn = New adodb.connection
cnn.open connectstring
If InStr("insert,delete,update", UCase$(stoken(0))) Then
cnn.execute sql
msgstring = stokens(0) & "query successful"
Else
Set rst = New adodb.Recordset
rst.open (sql), cnn, adopenkeyset, adlockoptimistic
Set executesql = rst
msgstring = "查询到"& rst.recordcount & "条记录"
End If
executesql_exit:
Set rst = Nothing
Set cnn = Nothing
End Function
executesql_error:
msgstring = "查询错误:" & Err.Description
Resume executesql_exit
End Function

调试时老是说:"用户未自定义对象(代码中的红色段)",接着下面程序还用到的变量executesql也就还说:"用户未自定义对象",请大家帮忙!!!

具体要怎么做啊？？？讲讲办法嘛！！！

具体写写啊大哥们，用代码引用？？？怎么写？？？还是用ADO控件连接引用ADO库啊？？？

Public Function executesql(ByVal sql As String, msgstring As String) As adodb.Recordset
Dim cnn As adodb.connection
Dim rst As adodb.Recordset
Dim stokens() As String
On Error GoTo executesql_error
stokens = Split(sql)
Set cnn = New adodb.connection
cnn.open connectstring
If InStr("insert,delete,update", UCase$(stoken(0))) Then
cnn.execute sql
msgstring = stokens(0) & "query successful"
Else
Set rst = New adodb.Recordset
rst.open (sql), cnn, adopenkeyset, adlockoptimistic
Set executesql = rst
msgstring = "查询到" & rst.recordcount & "条记录"
End If
executesql_exit:
Set rst = Nothing
Set cnn = Nothing
End Function
executesql_error:
msgstring = "查询错误：" & Err.Description
Resume executesql_exit
End Function
Public Function connectstring() As String
connection = "provider=sqloledb;uid=sa;pwd=sayu;database=xsgl"
End Function
Sub main()
Dim flogin As New frmlogin
flogin.Show vbModal
If Not flogin.ok Then
End
End If
Unload flogin
Set fmainform = New frmmain
fmainform.Show
End Sub

Public Function testtxt(txt As String) As Boolean
testtxt = False
Else
testtxt = True
End If
End Function


Public Function connectstring() As String
connection = "provider=sqloledb;uid=sa;pwd=sayu;database=xsgl"
End Function
这段是引用库了吗？？？