MSGBOX fejl ved brug

Jeg har en MSGbox, hvor jeg tester ja eller nej, til at køre en makro, den har virket og virker sådan set stadig, men efter kørsel er databasen låst, og jeg skal lukke den ned og åbne igen, inden at jeg kan bruge den igen.
Det mærkelige er at det har virket, og makroen virker når jeg kører den uden om boksen, koden er:
 
Private Sub Kommandoknap59_Click()
Dim intSvar As Integer
On Error GoTo Errhandler
    intSvar = MsgBox("Returdata sendes" + vbLf + vbLf + "Tryk ja, hvis du vil fortsætte" _
    + vbLf + vbLf + "Det er ikke muligt at fortryde denne handling!", vbYesNo + vbExclamation, "Bekræft afsendning af data")
    If intSvar = vbYes Then
    DoCmd.RunMacro "Sende og oprette data"
    End If
Errhandler:
    Exit Sub
End Sub