ms access update query fails missing parameters?

Question

here is sub

Private Sub btn_Archive_Click()

Dim dbs As Database

Dim sqlStr As String

sqlStr = "Update [T Prayer Requests] Set [close date] = \'&