与access连接出错，找不到数据库文件

Question

下面代码怎么改？Private Sub Form_Load()
    Dim CN  As NewADODB.Connection                                      
    Dim Rs  As New ADODB.Recordset
    Dim sql  As String
  
    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=F:\测量值数据库\Msdb.mdb"
     CN.Open
     Rs.CursorLocation = adUseClient
     sql = "select col1 as 列1,col2 as 列2,col3 as 列3,col4 as 列4,col5 as 列5,col6 as 列6,col7 as 列7,col8 as 列8,col9 as 列9,col10 as 列10,col11 as 列11,col12 as 列12 from  [表2] where 工件编号='000000' and 区域编号='000' order by line"
     Rs.Open sql, CN, adOpenDynamic, adLockBatchOptimistic     Set dgdMeasure.DataSource = Rs
谢谢！！！！！！！！！

Answer 1

在 cn.open前面加 Cn.CursorLocation = adUseClient

Answer 2

另外定义可能是你写错了，
Dim CN  As NewADODB.Connection 
应为
Dim CN  As New ADODB.Connection

Answer 3

1，dim cn as new adodb.connetion
2，rs.open sql,cn,adopenkeyset,adlockreadonly

Answer 4

先改成如下试试，能过了在完善SQL语句：
    Dim CN  As New ADODB.Connection                                      
    Dim Rs  As New ADODB.Recordset
    Dim sql  As String
    Dim StrConnect As String
    StrConnect = "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=F:\测量值数据库\Msdb.mdb;Persist " _
        & "Security Info=False;Jet OLEDB:Database Password=abc"
    CN.Open StrConnect
    sql = "select * from  [表2] "& _
        "where 工件编号='000000' and 区域编号='000' order by line"
    rs.Open Sql, CN, adOpenKeyset, adLockOptimistic
    Set dgdMeasure.DataSource = Rs
    

Answer 5

Dim CN  As NewADODB.Connection 就是"new"后面没有空格,字符串连接没有错