Öppna databaskopplning genom sub-rutin

Varför kan jag inte öppna en databaskoppling med en sub-rutin?

sub dbOpen()
	Set objConnection = Server.CreateObject("ADODB.Connection")
	objConnection.Open "driver=MySQL odbc 3.51 driver; server=localhost; uid=XXXXX; pwd=XXXXX; database=XXXXX"
end sub

sub dbClose()
	objConnection.close
	set objConnection = nothing
end sub

dbOpen

'Här skapar jag RecSet med hjälp av objConnection

dbClose

Körningsfel i Microsoft VBScript fel '800a01a8'

Objekt krävs.: 'objConnection'
test.asp, rad 29

På rad 29 körs en Execute av en SQL mot objConnection.

Hjälp mig tack! :)