Data Type Mismatch

[westconn1]

is the email sent before the error occurs?

i would believe a string for the where criteria should be enclosed in ' '
like

    strSQL = "UPDATE Email " & _
             "SET Email.Sent = -1 " & _
             "Where Email.EID = '" & Me.EID & "';"