我现在做着一个"学生信息管理系统" 其中有一段公用模块代码如下:
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也就还说:"用户未自定义对象",请大家帮忙!!!

估计是你没引用ADODB对象.或者没添加控件

vb 还没学到家

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

引用ADODB库

具体写写啊大哥们，用代码引用？？？怎么写？？？还是用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
这段是引用库了吗？？？