Dim objDataTable As New DataTable("t_Projektnachweise")
        Dim c As Control
        Dim strFeldName As String
        For Each c In Me.Controls
            If Microsoft.VisualBasic.Left(c.Name, 3) = "txt" Then
                strFeldName = Microsoft.VisualBasic.Left(c.Name, (Len(c.Name) - _
                  3))
                strFeldName = Microsoft.VisualBasic.Right(strFeldName, (Len( _
                strFeldName) - 3))
 
                c.Text = objDataTable.Rows(100).Item(strFeldName)
 
            End If
        Next