como llamar un sub desde pagina asp

[Gaby_Corr]

marca este error:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: ''


<!-- #include file = "conexion.asp"-->
<% If request.form = "" then ' muestro el formulario

conectarDB()
SQLconsulta = "SELECT * FROM DS_Reg ORDER BY IdRegistro DESC"
Set rs = cnn.Execute(SQLconsulta)

.....
....
....
%>

lo hago asi y le pongo call conectarDB() y no funciona, me marca lo mismo =(