I am trying to populate a menu with report names from an access database by using an instance of Access in a VB6 app and iterating the allreports collection like so -
' Transfer the contents of the AllReports collection to Reports
   strProgress = "iterate the AllReports collection"
   For Each objReport In objAccess.CurrentProject.AllReports
      ReDim Preserve arrReports(i)
      arrReports(i) = objReport.name
      i = i + 1
   Next objReport
End If
This is performed as a class method, on some machines I am getting an error 7866 (Non- existent database) although the database is where it should be and the permissions are set correctly, has anybody any thoughts