' BindingCollection der Textboxen
    With oBC
      Set .DataSource = ADOrs
      .Add text1(0), "text", "Vorname"
      .Add text1(1), "text", "Nachname"
      .Add text1(2), "text", "Strasse"
      .Add text1(3), "text", "HausNr"
      .Add text1(4), "text", "PLZ"
      .Add text1(5), "text", "Ort"
      ' und hier die anderen Felder, wenn noch welche vorhanden
    End With

' Recordset Tabelle Eigentuemer
Public Sub EigentuemerDaten()
    EigentuemerAnrede = ADOrs!Anrede
    EigentuemerVorname = ADOrs!Vorname
    EigentuemerNachname = ADOrs!Nachname
    EigentuemerStrasse = ADOrs!Strasse
    EigentuemerHausNr = ADOrs!HausNr
    EigentuemerPLZ = ADOrs!PLZ
    EigentuemerOrt = ADOrs!Ort
End Sub

' Daten werden aus dem Modul "Module1" geholt
 Combo1 = EigentuemerAnrede
 text1(0) = EigentuemerVorname
 text1(1) = EigentuemerNachname
 text1(2) = EigentuemerStrasse
 text1(3) = EigentuemerHausNr
 text1(4) = EigentuemerPLZ
 text1(5) = EigentuemerOrt

Public Sub cmdFirst_Click()
    'Ersten Datensatz anzeigen
    If ADOrs.RecordCount > 0 And Not ADOrs.EOF Then _
    ADOrs.MoveFirst
    lblStatus.Caption = "Datensatz: " & CStr(ADOrs.AbsolutePosition)
End Sub
 
Public Sub cmdLast_Click()
    'Letzten Datensatz anzeigen
    If ADOrs.RecordCount > 0 And Not ADOrs.BOF Then _
    ADOrs.MoveLast
   lblStatus.Caption = "Datensatz: " & CStr(ADOrs.AbsolutePosition)
End Sub
 
Public Sub cmdNext_Click()
    'Nächsten Datensatz anzeigen
    If ADOrs.RecordCount > 0 And Not ADOrs.EOF Then _
    ADOrs.MoveNext
   lblStatus.Caption = "Datensatz: " & CStr(ADOrs.AbsolutePosition)
End Sub
 
Public Sub cmdPrevious_Click()
   'Vorherigen Datensatz anzeigen
   If ADOrs.RecordCount > 0 And Not ADOrs.BOF Then _
   ADOrs.MovePrevious
  lblStatus.Caption = "Datensatz: " & CStr(ADOrs.AbsolutePosition)
End Sub

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.