[求助]只读文件怎么用ado?

lanchong

运行时错误‘-2147467259（80004005）’

不能使用‘’；文件已在使用中。

    Dim cnn1 As New ADODB.Connection

    Dim Rst1 As ADODB.Recordset

   

'    取回系统信息,除了背景图

   

    Dim rst2 As Recordset

    Set rst2 = CurrentDb().OpenRecordset("系统信息")

   

   

    cnn1.Open "rovider=Microsoft.Jet.OLEDB.4.0;" & _

            "Data Source=\\Ypnwsr\DATA\DATA\电脑部\MRP\wlbm.mdb"

       (此处提示错误)

    Set Rst1 = New ADODB.Recordset

    Rst1.Open "系统信息", cnn1, adOpenKeyset, adLockOptimistic, _

        adCmdTable

    Rst1.MoveFirst

    rst2.MoveFirst

    rst2.Edit

   

    For i = 0 To 6

        

        rst2.Fields(i) = rst2.Fields(i)

    Next

   

    rst2.Update

   

    rst2.Close

    Rst1.Close

但用连接表的方式可以读到数据