Our company has several workstations with Office 2007 and some have Office 2002. How do I check a workstation if it has 2007 or 2002. I am running a program that calls an MSACCESS.EXE database. My program below has a code

application = "C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE"

This works if it's office 2002. What about 2007? It has a different path.

Thanks

Private Sub cmdLogin_Click()

Set rsUser_Account = New ADODB.Recordset
mysql = "SELECT * FROM User_Account WHERE User_Name = '" & txtUsername.Text & "'"
rsUser_Account.CursorType = adOpenDynamic
rsUser_Account.LockType = adLockOptimistic
rsUser_Account.Open mysql, adoBenConn

If Not rsUser_Account.EOF Then
   If rsUser_Account!User_Password = txtPassword.Text Then
      Dim accObj As Access.application
      ' This is the default location of Access
      application = "C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE"
      ' Use the path and name of a secured MDB
      strPath = rsUser_Account!Application_Path & rsUser_Account!Application_Name
      x = Shell(application & " " & Chr(34) & strPath & Chr(34))
      Set accObj = GetObject(, "Access.Application")
      Me.Hide
      Unload Me
  ' accObj.CloseCurrentDatabase
  ' accObj.Quit
      Set accObj = Nothing
   Else
      MsgBox "Username or Password is incorrect."
   End If
End If
End Sub

Create an .INI file for the app, and enter the proper info into it.

Then, when the app starts, it will retrieve the info from the .INI.

Don't use CHR(34). In a vb string you use a pair of " to resolve to a single one in the resultant string.

   s = """" will set s to one double-quote mark. There also might be a registry entry you can access.
Also, perhaps you could search downward from the most recent office config. If not found then look for the one before, and so on, and so on.