Public Sub CmdBearbeiten2_Click()
    strQuelle = "Mieter"
 
 Set rstR_Mieter_Id = New Recordset
 
 If rstR_Mieter_Id.State = adStateOpen Then rstR_Mieter_Id.Close
 rstR_Mieter_Id.Open "SELECT * FROM Mieter WHERE Mieter_Id =" & _
   WohnungR_Mieter_Id, ADOcn, adOpenStatic
 
 '  das Recordset weitergeben
  frmMieter.text1(0).Text = rstR_Mieter_Id.Fields(1)    'Anrede
  frmMieter.text1(1).Text = rstR_Mieter_Id.Fields(2)    'Titel      <------ 
  ' hier bleibt er stehen, die Anrede wird noch im Formular angezeigt und dann 
  ' will er nicht mehr
  frmMieter.text1(2).Text = rstR_Mieter_Id.Fields(3)    'Vorname
usw.

Gruss
Agnes

------------------------------------
Wenn wir heut gemeinsam starten
und wir alle viel erwarten,

denken wir an jedem Tag daran,
dass man es nur schaffen kann,

wenn wir fest zusammen stehen
und den Weg gemeinsam gehen.