Parametrisierte Abfrage aus Formular starten

Sub bar()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset
 
Set db = CurrentDb
Set qdf = db.QueryDefs("Query2")
qdf.Parameters(0) = Forms!Form1!Text0
foo= Zwischen [Formulare]![Tagesbericht Druckparameter]![Datvon] Und [Formulare]![Tagesbericht Druckparameter]![Datbis]
Set rst = qdf.OpenRecordset
 
Do Until rst.EOF
  Debug.Print rst!resource
  rst.MoveNext
Loop
 
rst.Close
qdf.Close
End Sub