Public Function OpenFolderAndSelectSpecialFile(ByVal szSpecialFileForSelect As String) As Boolean
 '函数：OpenFolderAndSelectSpecialFile
 '用途：打开指定的文件夹并且选中指定的文件
 '参数：szSpecialFileForSelect 想要选中的文件全路径
 '返回：True:选中文件成功 False: 选中文件失败或者指定文件不存在

    On Error GoTo hErr
    If Dir(szSpecialFileForSelect) <> "" Then
       Dim szShellSelect As String
       szShellSelect = "Explorer /select, "
       szShellSelect = szShellSelect & szSpecialFileForSelect
       Shell szShellSelect, vbNormalFocus
       OpenFolderAndSelectSpecialFile = True
    End If
    Exit Function
hErr:
End Function

Private Sub Command0_Click()
    Call OpenFolderAndSelectSpecialFile(CurrentDb.Name)
End Sub