' // Die etwas angepasste Funktion
    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 CObj("{" + New String(" ", CurrentColumn.MaxLength) + "}")
        End If
        Return o
    End Function
 
    ' // Verwendung:
    ' DataAdapter.Fill(objDataTable)
    ' DataAdapter.FillSchema(objDataTable, SchemaType.Source)
    Dim r As DataRow = Me.objDataTable.Rows(0)
    MessageBox.Show(GetValue(r("Vorname"), r.Table.Columns("Vorname")).ToString)