VB求助 有加分 高手快来 急急急！

本人写了段程序如下，实现的是根据输入关键字查询分数，
运行时却出现了错误，不知该怎么调试，请高手帮忙
错误提示是：Unrecognized database format'c:\Documents and Settings\gg\桌面\xx\student.mdb
请高手帮忙，有加分
Private Sub Command1_Click()
On Error Resume Next
Dim s() As String, i As Integer, sql, milnk, mpath As String
mpath = App.Path
If Right(mpath, 1) <> "\" Then mpath = mpath + "\"
sql = "Select * From 学生表 Where"
If Text1.Text = "" Then
rsponse = MsgBox("请输入关键字", vbOKOnly, "提示")
If reponse = 1 Then Text1.SetFocus
Else
If Text1.Text > "" Then
s = Split(Text1.Text, " ")
End If
For i = 0 To UBound(s) - 1
If IsNumeric(s(i)) Then
k = Len(s(i))
Select Case k
Case 1
sql = sql + "学号=00'" & s(i) & "'"
Case 2
sql = sql + "学号=0'" & s(i) & "'&qu

VB求助 有加分 高手快来 急急急！ 快来，有加分 VB 代码查询 急急急~！！ 高手快进 有加分 大家快来，有加分 急 ，求助，有加分的 RS422针脚定义！！！高手来。有加分。在线急等 字谜，高手来，有加分。。。。。。。 VB高手快来! VB高手快来！！！！ 三大改造 急..快!有加分.!