' Leere Einträge auf DBNull setzen (dadurch kann die Textbox verlassen 
        ' werden
 
        Dim myTxt As TextBox
 
        Try
            ' Konvertieren in eine Textbox (muss Textbox sein)
            myTxt = sender
 
            ' Wenn das Textfeld leer ist, soll DBNull sein
            If myTxt.Text.Trim = "" Then
                ' NullValue definieren als leerer String
                myTxt.DataBindings.Item(0).NullValue = ""
            End If
 
        Catch ex As Exception
 
        End Try