Hotlist Task Script

I'm working on a script to insert a hotlist task for the current record that I've adapted from sample scripts I've collected over time.However, I'mmissing something with this one. Any help...

Option Explicit

Dim oCon
Set oCon = CreateObject("ADODB.Connection")
oCon.Open("DSN=Tutorial;UID=MASTER;PWD=CONTROL;")

Dim oCmd
Set oCmd = CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon

Dim RecCount

oCmd.CommandText = _
"INSERT INTO HOTLIST (Schedule_Date, Schedule_Time, [Text])" & _
"VALUES ('22/09/2008', '08:30:00:00', 'Task');"
oCmd.Execute RecCount
Wscript.Echo RecCount & " HotList Task(s) inserted"

Set oCmd = Nothing
oCon.Close
Set oCon = Nothing