dim mydrow as datarow  'Deklaration im allgemeinen Bereich
 
[...]
 
if SqlDatatable.Rows.Count > 0 then
    mydrow = sqlDataTable.Rows(0) 'Datarow mit Werten füllen
   else
      msgbox("Abfrage enthält kein Resultset")
end if
 
[Dann das laden der Feldinfos in die Textboxen]
 
Dim myctrl as Objekt
Dim feldname as String
 
for each myctrl in me.controls
     if TypeOf myctrl is Textbox then
        feldname = mid(mycrtl.name, 4) 'Feldname aus Nameproperty ermitteln
             try
                  ctrl.text = mydrow(feldname).tostring)
             catch ex as exception
             end try
     end if
next 
 
[...]