commands.add "cmdBRIEF","Brief schreiben","Brief","bmpWINWORD"
Sub Brief
	If Application.Panes("F_AD").DSN<>"" Then
		commands.execute "DOCUMENT",".\vorlagen.mus\adressen\_(Briefkopf).doc"
	Else
		msgbox "Bitte suchen Sie zuerst die gewünschte Adresse heraus."			
	End If
End Sub