openrecordset - men det gør den bare ikke :-(

jeg er meget nybegynder i denne verden og har følgende problem. Jeg har en tabel hvorfra jeg gerne vil \"hive\" en count(*) ud i en variabel jeg kan arbejde videre med.
jeg har forsøgt således:
    Dim dbs As Database
    Dim rst As Recordset
    Dim strSQL As String

   
    Set dbs = CurrentDb
    \'parameters [\" + str(medarbejder_ID) + \"] long,
    \'          [afholdt_status] boolean;
    strSQL = \" SELECT count(*) FROM aktuelfravaer  where [medarbejder_ID] = \" + Str(Medarbejder_ID) + \" \" _
            & \"and [afholdt_status] = false\"
    Set rst = dbs.OpenRecordset(strSQL)
    rst.MoveFirst
    Debug.Print rst.RecordCount
    rst.Close
    Set dbs = Nothing
men får svaret: typerne passer ikke sammen i linien set rst = dbs.open......... osv.
HJÆLP