查询后台数据库的连接电脑情况....

        Dim cn As ADODB.Connection
        Dim cm As ADODB.Connection
        Dim rs As ADODB.Recordset
        Dim ss As ADODB.Recordset
        Dim XX As ADODB.Recordset

    Set cn = New ADODB.Connection
    cn.ConnectionString ="f:\数据库测试\后台数据库.mdb"
    cn.Open
  
    Set cm = CurrentProject.Connection

   Set XX = New ADODB.Recordset
    XX.LockType = adLockOptimistic
    XX.Open "本地表", cm

    Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
    , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
 
    rs.MoveNext
    Do While Not rs.EOF
        XX.AddNew
        XX!计算机名 = rs.Fields(0)
        XX.Update
        rs.MoveNext
        Loop

  docmd.opentable "本地表"