diff --git a/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb b/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb
index 9745b5cb..494d8873 100644
--- a/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb
+++ b/SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb
@@ -122,9 +122,13 @@
         BB.bb_Kontaktart = cboKontaktart._value
         If If(BB.bb_KundenNr, -1) <= 0 Then
             If txtFirma.Text <> "" Then
-                BB.bb_Kunde = txtFirma.Text
+                If txtFirma.Text.Length > 35 Then
+                    BB.bb_Kunde = txtFirma.Text.Substring(0, 35)
+                Else
+                    BB.bb_Kunde = txtFirma.Text
+                End If
             Else
-                BB.bb_Kunde = "-" 'diese Fall kann nicht eintreten, wird im Formular abgefangen, aber sicherheitshalber :)
+                BB.bb_Kunde = "-" 'diese Fall kann nicht eintreten, wird im Formular abgefangen.
             End If
         End If
         BB.bb_Geschaeftsfuehrer = txtGF.Text