sub verkar inte köras?

Funkar inte:

sub myCon
    set connection = server.createobject("adodb.connection")
    connection.Open "hemlis"
end sub

call myCon
connection.execute(sql),,128

Funkar:

set connection = server.createobject("adodb.connection")
connection.Open "hemlis"
connection.execute(sql),,128

Vad är fel?