Global accessqdf As DAO.QueryDef
Set accessqdf = accessDB.QueryDefs("Abfrage_in_Access")
      For p = 0 To accessqdf.Parameters.Count - 1
        If accessqdf(p).Name = "[Insert_Date]" Then ' Parameterwert abfragen
          accessqdf(p).Value = ConvertDateDB(Date) ' Wert übergeben
        ElseIf accessqdf(p).Name = "[Insert_Time]" Then
          accessqdf(p).Value = Time()
        End If
      Next p
accessqdf.Execute dbFailOnError ' ausführen
 
      accessqdf.Close
      Set accessqdf = Nothing