If Not Existe_Arquivo(app.path & "MeuBD.mdb", True) Then
      MsgBox "Banco de Dados não existe na pasta " & app.path
      Exit Sub
   End If

Function Existe_Arquivo(ByVal PathName As String, Optional Directory As Boolean) As Boolean
    On Error GoTo Erro
    If PathName <> "" Then
        If IsMissing(Directory) Or Directory = False Then
            Existe_Arquivo = (Dir$(PathName) <> "")
        Else
            Existe_Arquivo = (Dir$(PathName, vbDirectory) <> "")
        End If
    End If
    Exit Function
Erro:
 Existe_Arquivo = False
End Function