Why doesn't this work?

the query produces results with one of the fieldnames as DateDone and whose
values are dates. I'm trying to get a fieldname that looks like the dates in
the DateDone field (I'll use in a create table SQL later).

       Dim fldDateAttended as Field, rs as DAO.Recordset, db as Database,
qdf as QueryDef
       Set db = Currentdb()
       Set qdf = db.QueryDefs("Qry_04")
       qdf.Parameters("mWorkshopID") = mWorkshopID
       Set rs = qdf.OpenRecordset(dbReadOnly)

       Set fldDateDone = rs("DateDone")

I get a data type mismatch when execution gets to the set fldDateDone line.
I'd expect the fldDateDone to be the first record in the query, as in
"11/1/2006"

Thx.