我的这段程序如下:
Dim strsql As String
strsql = "select * from db2.mdb where 姓名='" & Trim$(txtname.Text) & " 'and 学号='" & Trim$(txtnumber.Text) & " ' "
当我执行时 它显示错误是 在默认的路径下找不到 db2.mdb 这个数据库
我也感到奇怪 我已经这样设置:Private Sub Form_Initialize()
ChDir App.Path
ChDrive App.Path

End Sub

但还是显示错误!
我想请教怎么样解决这个问题????
谢谢!!!