VB连接ACCESS提示文件在使用中，怎么解决？？

Question

Dim strSQL As String
    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    rs.LockType = adLockOptimistic
    rs.CursorType = adOpenKeyset
    cnn.CursorLocation = adUseClient
    cnn.connectionstring = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" _
        & "\\192.168.1.6\刀模数据\刀模数据库.mdb" & ";" _
        & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=adminxs"
    cnn.Open
   rs.Open "SELECT 用户名,密码,权限,名称 FROM 用户 where 用户名='" & Combo1.Text & "' ", cnn
   If Not rs.EOF Then
        Text2.Text = rs.Fields("密码")
        Text3.Text = rs.Fields("权限")
        Text4.Text = rs.Fields("名称")
        Text5.Text = rs.Fields("用户名")
    Else
      MsgBox "没有您要的记录！", vbOKOnly + vbInformation, "注意"
    End If
    rs.Close
    Set cnn = Nothing
这是几个人同时用   可是只要是第二个人打开就提示 “不能使用，，文件在使用中“
请高手指教   谢谢

Answer 1

rs.Close 
set rs=nothing
cnn.close
set cnn =nothing

Answer 2

你既然用的ACCESS数据库，那就用数据源试一下            mdbcn.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);UID=admin;DBQ=" & outboxpath & ".mdb"
            mdbcn.Open

Answer 3

你一定是之前用代码打开了ACCESS,但并没有关闭,
你可以试试,在cnn.Open 之前,先执行cnn.close:set cnn =nothing,如果可以了,就找运行这段代码之前的错误吧.