VB与Access的连接问题(求助各位牛人)

Question

代码如下：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Books.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "tslbb"
Adodc1.Refresh
Cnn.Open
在Adodc的属性栏中已经输了CoonectionString的选项，并且在测试连接时提示连接成功。
但是在运行程序时，提示出错：“[ODBC驱动程序管理员]未发现数据源名称并且未指定默认驱动程序”
显示 为Cnn.Open有错。
若删除这一句，它提示“上下文方法已经关闭，无法打开”

Answer 1

你那个Cnn与Adodc1并没看出有什么联系呀,Cnn如果是一个Connection对象,直接设置其ConnectionString 并打开即可

Answer 2

dim conn as new adodb.connection
dim rs as new adodb.recordsetWith conn
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data SourceD:\Books.mdb"
    .Open
    .CommandTimeout = 300
end with
if rs.state<>adstateclosed then rs.close
rs.open "select * from tslbb",conn,adopenkeyset,adlockreadonly