问ADO的一个小错误

Question

代码如下：
Private Sub Form_Load()
Dim Cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim strConnect As String
Set cn = New Connection
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\teacher.mdb"
cn.ConnectionString = strConnect
cn.OpenWith Cmd
 .ActiveConnection = cn
 .CommandType = adCmdTable
 .CommandText = "teacher"
End With
With rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockReadOnly
.Open Cmd
End With
Set DataGrid1.DataSource = rsEnd Sub
出错：
弹出对话框
错误：请求的操作需要OLEDB会话对象，而当前提供程序不支持此对象。
点击确定后弹出对话框
实时错误'-22147467259(80004005)':
找不到文件'F:\teacher.mdb'。

Answer 1

1 是否声明了连接对象
Dim cn As ADODB.Connection2 是否有 F:\ 目录的访问权限。换到其他路径试试。3 是否有其他程序独占打开了该数据库？4 数据库是否链接了网络数据库表？

Answer 2

我在我的機器上測試沒問題.是不是你的數據庫有問題,
ACCESS是不是最新版本的.

Answer 3

Set cn = New Connection 对吗？
 是不是应该要个
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection