Public Sub Datenbankpfad()
 
    ' Datenbankpfad
    DBPfad = App.Path & "\Haus.mdb"
 
    ' Provider auswählen + Datenbankpfad
    With ADOcn
      .CursorLocation = adUseClient
      .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        DBPfad
      .Open
    End With
 
    'Recordset für die Tabelle Eigentümer
    With ADOrs
      .ActiveConnection = ADOcn
      .Source = strQuelle
      .CursorType = adOpenStatic
      .LockType = adLockPessimistic
      .Open
    End With
End Sub
 
 
' Hier kommt der Fehler, weil RSDaten keinen Wert weitergibt, aber warum?
' Es werden immer nur EigentuemerDaten genommen
 
Function RSDaten()
 
Select Case strQuelle
    Case "Eigentuemer"
          RSDaten = EigentuemerDaten
    Case "Gebaeude"
          RSDaten = GebaeudeDaten
    Case "Mieter"
          RSDaten = MieterDaten
    Case "Wohnungsdaten"
          RSDaten = Wohnungsdaten
    Case "Zahlungseingang"
          RSDaten = ZEDaten
    Case "Zahlungsausgang"
          RSDaten = ZADaten
End Select
 
Select Case RSDaten
    Case EigentuemerDaten
          RSDaten = EigentuemerDaten
    Case GebaeudeDaten
          RSDaten = GebaeudeDaten
    Case MieterDaten
          RSDaten = MieterDaten
    Case Wohnungsdaten
          RSDaten = Wohnungsdaten
    Case ZEDaten
          RSDaten = ZEDaten
    Case ZADaten
          RSDaten = ZADaten
    Case Else
          MsgBox "Der Wert von RSDaten fehlt"
    End Select
End Function

' Recordset Tabelle Eigentuemer
Function EigentuemerDaten()
    EigentuemerAnrede = ADOrs("Anrede")
    EigentuemerVorname = ADOrs("Vorname")
    EigentuemerNachname = ADOrs("Nachname")
    EigentuemerStrasse = ADOrs("Strasse")
    EigentuemerPLZ = ADOrs("PLZ")
    EigentuemerOrt = ADOrs("Ort")
End Function

Public Sub cmdNext_Click()
    ' vorblättern
    With ADOrs
      If .RecordCount > 0 Then
        .MoveNext
        RSDaten
        If .EOF Then
          .MoveLast
          RSDaten
        End If
      End If
    End With
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.