Funciones en ASP

[infolan]

Hola a todos,

Tengo estas dos funciones

Function openConnection ()
set cmd = Server.CreateObject("ADODB.Command")
set oConn=Server.CreateObject("ADODB.Connection")
set rs = CreateObject("ADODB.Recordset")

strConnection = "******"
oConn.Open strConnection
oConn.CursorLocation = 2
rs.CursorLocation = 3
rs.LockType = 1
rs.CursorType = 3
End Function


Function checkLogin(usuario, password)
rst.Open "exec sp_usuario_login_l '"& usuario &"', "& password &"",oConn,1,2

'Si la consulta devuelve uno quiere decir que el usuario y password es correcto.
if rs.recordcount = 1 then
'Para los usuarios que tenga acceso a la parte de administracción
session("autorizacion")=1
select case ucase(rs.fields("descripcion").value)
case "ADMINISTRACCIO"
url = "admin_menu.asp?desc=" & rs.fields("descripcion").value
response.redirect(url)
case ""
end select
else
session("autorizacion")=-1
response.redirect("login.asp")
end if
End Function


Como puedo hacer que la funcioón de OpenConnection se use dentro de la otra para poder ejecutar la consulta