If IsDBNull(Kunde.EmailAdresse2) = True Then
   outZeile += Feldtrenner
Else
   outZeile += Kunde.EmailAdresse2 & Feldtrenner
End If

<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
 Global.System.CodeDom.Compiler.GeneratedCodeAttribute( _
 "System.Data.Design.TypedDataSetGenerator", "15.0.0.0")>  _
 Public Property EmailAdresse2() As String
     Get
         Try 
             Return CType(Me(Me.tableDTKunden.EmailAdresse2Column),String)
         Catch e As Global.System.InvalidCastException
             Throw New Global.System.Data.StrongTypingException("Der Wert für" & _
               "Spalte EmailAdresse2 in Tabelle DTKunden ist DBNull.", e)
         End Try
     End Get
     Set
         Me(Me.tableDTKunden.EmailAdresse2Column) = value
     End Set
 End Property