' Du hast folgendes Select 
 
Select Nachname, Vornmae, Adresse From Kunden
 
' Diese Abfrage hast Du über Dein ADO gemacht und steht jetzt im Recordset RS 
' Du möchtest jetzt in Deine 3 Textfelder alle 3 Angaben stehen haben
 
txtNachname.Text = RS.Fields("Nachname").Value
txtVorname.Text = RS.Fields("Vornmae").Value
txtAdresse.Text = RS.Fields("Adresse").Value
 
' Die Namen in der Fields Anweisung müssen immer genau die gleichen sein,
' wie in der Select Anweisung - oder Du kannst es auch per Index machen
' In unserem Fall wäre das dann:
 
txtNachname.Text = RS.Fields(0).Value
txtVorname.Text = RS.Fields(1).Value
txtAdresse.Text = RS.Fields(2).Value
 
' Beim Index musst Du vorsichtig sein, da wenn Du das Select änderst, Du auch
' den Index ändern musst!