Private Sub Command2_Click()
MsgBox "Legen Sie bitte eine leere, formatierte Diskette ein und drücken Sie" & _
  "OK!"
On Error GoTo Diskerror
FileCopy App.Path & "\Kochbuch.mdb", "A:\"
 
Exit Sub
Diskerror:
MsgBox "Fehler aufgetreten! " & Err.Description
End Sub