Send email from DB using CDOSYS

I have a form to send email to members using CDOSYS. I had it working fine with CDONTS but my new webhost requires that I use CDOSYS. The code below actually sends emails to the members but I get an error. Here is the code that I am using:

<%
server.ScriptTimeout=1800
if len(request.form) > 0 then

Dim objMail, rs
Dim MyBody

MyBody=replace(trim(request.form("matter")), vbCrLf, "<br />")
fnpath=Server.Mappath("db/mydatabase.mdb")
set aqe=server.CreateObject("ADODB.Connection")
aqe.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & fnpath
set rs=server.CreateObject("ADODB.Recordset")

Set objMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")

'Configuration:
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort

objConfig.Fields(cdoSMTPServer)="smtp.mywebhost.com"
objConfig.Fields(cdoSMTPServerPort)=25
objConfig.Fields(cdoSMTPAuthenticate)=cdoBasic
objConfig.Fields(cdoSendUserName)="sendusername@ptraa.com"
objConfig.Fields(cdoSendPassword)="secrectpassword"

'Update configuration
objConfig.Fields.Update
Set objMail.Configuration = objConfig

rs.open "select MemberEmail from testmail where MemberEmail <> '""'",aqe,3,3
rs.MoveFirst
while not rs.eof
      objMail.From = "myname@mywebsite.com"
      objMail.To = trim(rs("MemberEmail"))
      objMail.Subject = trim(request.form("subject"))
      objMail.HTMLBody = trim(request.form("matter"))
      objMail.Send

      Set objMail=Nothing
      Set objConfig=Nothing

      wend
      mailsent="true"
end if
%>

Here is the error message I get:

Object required
/massmail.asp, line 42

Another minor issue is that the email message is not saving line breaks. Everything goes on one lineStart Free Trial