......
            Dim _dtSA1 As New DataTable
            _daSA1.FillSchema(_dtSA1, SchemaType.Source)
            _daSA1.Fill(_dtSA1)
            For Each cRow In _dtSA1.Rows
                rowSA1("X8000")
                rowSA1("X3000")
                rowSA1("X3100")
                ......
 
Function GetValue(ByVal o As Object, ByVal CurrentColumn As DataColumn) As _
  Object
        If o.Equals("") OrElse o Is Nothing OrElse o Is System.DBNull.Value Then
            Return CurrentColumn.MaxLength
        End If
        Return o
End Function
 
Public Function rowSA1(ByVal feld As String)
        s = GetValue(cRow(feld), cRow.Table.Columns(feld)).ToString
        write(feld, s)
End Function