Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/HealthResources/Onlineentry/index.asp, line 17

set RsChem = Server.CreateObject(ADODB.Recordset")
--------------------------------------------------^