[Resolvido]Verificar se o arquivo ativo esta na pasta correta

Private Sub Form_Open(Cancel As Integer)
If Not Dir("C:\SuaPasta\SeuBanco.accdb", vbDirectory) = vbNullString Then
      Exit Sub
  Else
      MsgBox "Banco não está na Pasta pré-defenida." & vbNewLine & "Favor colocar em C:\Pasta...", vbCritical
      DoCmd.Quit
  End If
End Sub

Private Sub Form_Open(Cancel As Integer)
If CurrentProject.Path <> "C:\SuaPasta" Then
      MsgBox "Banco não está a correr na Pasta pré-defenida." & vbNewLine & "Favor abrir o banco em C:\Pasta...", vbCritical
      DoCmd.Quit
  Else
   Exit Sub
  End If
End Sub