ник: Мюллер
Эта ф-ция открывает файл в его родном формате.
per1 - путь к файлу.
Function StartOfFile(per1)
Dim intResult As Integer
'intResult = ShellExecute(Application.hWndAccessApp, "open", strNameFile, 0, 0, SW_SHOWNORMAL)
intResult = ShellExecute(Application.hWndAccessApp, "open", per1, 1, 1, 1)
If intResult = 31 Then
MsgBox "Фиг его знает чо за тип файла"
End If
End Function
И не нужно заморачиваться с определением типа файла.