IF your trying to display open with, you can probably insert this procedure into your Access VBA code:
Private Type SHELLEXECUTEINFOA
cbSize As Long
fMask As Long
hwnd As Long
lpVerb As String
lpFile As String
lpParameters As String
lpDirectory As String
nShow As Long
hInstApp As Long
' fields
lpIDList As Long
lpClass As String
hkeyClass As Long
dwHotKey As Long
hIcon As Long
hProcess As Long
End Type
Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Long
Private Declare Function ShellExecuteEx Lib "shell32.dll" (ByRef lpExecInfo As SHELLEXECUTEINFOA) As Long
Public Function OpenWith(ByVal FilePath As String, optional ByVal HwndOwner As Long=0,Optional ByVal Icon As Long = 0) As Long
Dim sei As SHELLEXECUTEINFOA
Dim verba As String
verba = "openas"
sei.hIcon = Icon
sei.hProcess = GetCurrentProcess()
sei.hInstApp = App.hInstance
sei.lpVerb = verba
sei.lpFile = FilePath
sei.nShow = vbNormalFocus
sei.cbSize = Len(sei)
OpenWith = ShellExecuteEx(sei)
'Stop
End Function
to call the function, pass in the filename, and optionally a hwnd (from a access form, for example) as well as an icon, if desired. the default icon is usually sufficient.
Additionally, I'm not sure if the "App" object in VB6 is available or the same as it would be in an Access application; I'm certain there is an alternative, however.
