Set tstyle(aktStyle).rs = CheckPersonal(tstyle(aktStyle).rs)
Debug.Print tstyle(aktStyle).rs.RecordCount 'Z.B.
Debug.Print tstyle(aktStyle).rs.Fields(0).Value
 
Private Function CheckPersonal(ByRef rs As ADODB.Recordset) As ADODB.Recordset
  'Alles auskommentieren
  Set CheckPersonal = test
End Function
 
Private Function test( _
    ByRef rs As ADODB.Recordset _
  ) As ADODB.Recordset
 
  Dim anotherRS As ADODB.Recordset
  Set anotherRS = New ADODB.Recordset
 
  anotherRS.Fields.Append "Name", adBSTR
  anotherRS.Fields.Append "Name2", adBSTR
 
  anotherRS.Open
  testAdd anotherRS, "A", "A2"
  testAdd anotherRS, "B", "B2"
  testAdd anotherRS, "C", "C2"
  testAdd anotherRS, "D", "D2"
 
  anotherRS.MoveFirst
 
  Set test = anotherRS
 
End Function
 
Private Sub testAdd( _
    ByRef rs As ADODB.Recordset, _
    ByVal vName As String, _
    ByVal vName2 As String _
  )
 
  rs.AddNew
  rs!Name = vName
  rs!Name2 = vName2
  rs.Update
 
End Sub