打不开数据库文件，但是路径是对的，请问，是怎么回事？

Question

引用那里也选了Microsoft ActiveX Data Objects 2.5 library
文件里有这个数据库，就是提示打不开文件E:\test\Tstudy.mdb
Private Sub Command1_Click()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strin As String
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\Tstudy.mdb;Persist Security Info=False"
strin = "select * from Tsetright"
Set rs = New ADODB.Recordset
rs.Open strin, cnn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields(0) = 1
rs.Update
rs.Close
conn.CloseEnd Sub

Answer 1

我用你的程序做过，除了下面的第4点，其它没改，可以运行，你出错的可能原因：
1、你的文件夹是否设成“只读”；
2、你的数据库是否放在你的程序下面；
3、检查你的数据库名和表名是否正确；
4、conn.Close错了，改成：cnn.Close。^_^

Answer 2

conn.Close 将改成 cnn.Close

Answer 3

还是不行，
文件夹不是只读，数据库是放在程序一起，数据库名与表名也有。cnn.close改过来了。还是不行。
到底是哪里？被难到了。请大伙帮帮忙。

Answer 4

是执行到哪一句出错？
是cnn.open时出错，则数据库有问题
是rs.open时出错，则数据表有问题