Pessoal

Como eu travo para que não seja aberto o banco duas vezes na mesma estação ????

Olá, utilize as seguintes funções:

Function IsRunning()
Dim db As DAO.Database

Set db = CurrentDb()

If TestDDELink(db.Name) Then
Beep
MsgBox "Atenção ! o programa já está aberto." & vbCrLf & vbCrLf & "Consulte a barra de tarefas do Windows.", vbCritical, "Agenda"
DoCmd.Quit
Exit Function
End If

End Function

' Função Auxiliar de IsRunning()
Function TestDDELink(ByVal strAppName$) As Integer
Dim varDDEChannel
On Error Resume Next

Application.SetOption ("Ignore DDE Requests"), True
varDDEChannel = DDEInitiate("MSAccess", strAppName)

' When the app isn't already running this will error
If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varDDEChannel
DDETerminateAll
End If
Application.SetOption ("Ignore DDE Requests"), False

End Function

Para chamar utilize no evento AoAbrir do seu form inicial:

Call IsRunning