求助！！！！运行出现[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序

[yuping1221]

一个Logon.mdb，一个Score.mdb都是用Access做的，放在一个文件夹里.用户登陆用的是Logon，成绩分析用的是Score，同样的代码为什么用户登陆的可以，成绩分析的出现：[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序。

用户登陆代码：
Private Sub Form_Load()
On Error GoTo DealError
Dim objCn As New Connection
'建立数据库连接
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\数据库\Logon.mdb"
objCn.ConnectionString = strCn
objCn.Open

'创建RecordSet对象，获取系统用户信息
Set objRs = New Recordset
Set objRs.ActiveConnection = objCn
objRs.CursorLocation = adUseClient
strSQL = "SELECT * FROM 系统用户"
objRs.Open strSQL
objRs.ActiveConnection = Nothing '取消数据库连接
objCn.Close '关闭数据库连接
Set objCn = Nothing '释放连接对象
Exit Sub
DealError:
msg = "程序执行出错，错误信息如下：" & vbCrLf & Err.Description
ShowError msg
End Sub
成绩分析代码：
Dim rs1 As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim rs3 As ADODB.Recordset
Dim rs4 As ADODB.Recordset
Dim rs5 As ADODB.Recordset
Dim SelectedSeries As Integer '自定义变量
Dim rs() As String '提取记录集用的字符串数组
Dim objRs As Recordset
Private Sub Form_Load()
On Error GoTo DealError
Dim objCn As New Connection
'建立数据库连接
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\数据库\Score.mdb"
objCn.ConnectionString = strCn
objCn.Open
Set rs5 = New ADODB.Recordset
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
Set rs3 = New ADODB.Recordset
Set rs4 = New ADODB.Recordset
'创建RecordSet对象，获取系统用户信息
Set objRs = New Recordset
Set objRs.ActiveConnection = objCn
objRs.CursorLocation = adUseClient
strSQL = "SELECT * FROM 学生成绩"
objRs.Open strSQL
rs5.Open "select * from 学生成绩 order by 成绩", strSQL, adOpenStatic, adLockOptimistic
Do While Not rs5.EOF
rs5.MoveNext
Loop
rs1.Open "select * from 学生成绩 where 成绩 =" + Chr(39) + "优" + Chr(39) + "order by 成绩", strSQL, adOpenStatic, adLockOptimistic
Do While Not rs1.EOF
rs1.MoveNext
Loop


rs2.Open "select * from 学生成绩 where 成绩 =" + Chr(39) + "良" + Chr(39) + "order by 成绩", strSQL, adOpenStatic, adLockOptimistic
Do While Not rs2.EOF
rs2.MoveNext
Loop

rs3.Open "select * from 学生成绩 where 成绩 =" + Chr(39) + "中" + Chr(39) + "order by 成绩", strSQL, adOpenStatic, adLockOptimistic
Do While Not rs3.EOF
rs3.MoveNext
Loop

rs4.Open "select* from 学生成绩 where 成绩=" + Chr(39) + "差" + Chr(39) + "order by 成绩", strSQL, adOpenStatic, adLockOptimistic
Do While Not rs4.EOF
rs4.MoveNext
Loop
objRs.ActiveConnection = Nothing '取消数据库连接
objCn.Close '关闭数据库连接
Set objCn = Nothing '释放连接
Exit Sub
DealError:
msg = "程序执行出错，错误信息如下：" & vbCrLf & Err.Description
ShowError msg
End Sub


怎么都找不到原因，请大家帮帮我，系统做不完了。。。