Private Sub Form_Load(...)
 
        ' ...
 
        AddHandler TextBox1.DataBindings(0).Format, AddressOf b_Format
        AddHandler TextBox1.DataBindings(0).Parse, AddressOf b_Parse
 
    End Sub
 
    Private Sub b_Format(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.ConvertEventArgs)
        If e.Value Is DBNull.Value Then
            e.Value = String.Empty
        End If
    End Sub
 
    Private Sub b_Parse(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.ConvertEventArgs)
        If e.Value = String.Empty Then
            e.Value = DBNull.Value
        End If
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist