[Resolvido]Utilizando AdoDb em extensào accdb

   Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset
   Dim strRowSource As String
   Dim strUserToCheck As String
   
   Set cn = New ADODB.Connection
   Set rs = New ADODB.Recordset
   
   lstConnections.RowSource = ""
   DoCmd.Hourglass True
   
   With cn
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .Properties("Data Source") = mstrConnectedDB
      If mconfSecuredDB Then
         .Properties("User Id") = mcon_SEC_AdminsAcountName
         .Properties("Password") = mcon_SEC_AdminsAcountPWD
         .Properties("Jet OLEDB:System database") = getPath(mstrConnectedDB) & mcon_SEC_MDW_Name
      End If
      .Open