The dts should be set up this way:
Connection1--->Connection2--->ActiveX--->Send Mail Task
And this is what should be in the ActiveX Script:
Function Main()
dim conn, rs
set conn = CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.Recordset")
DSN1 = "Provider=sqloledb;"...