erro na cocexão

Ola! galera ja procurei em varios topicos e não tenho idéia do que acontece...

olha estou fazendo uma conexão com sql server 2000 e quando faço da seguinte maneira da tudo certo.

CODE

usuario=request.Form("nome")

senha=request.form("senha")

sql="SELECT codjog, jognome, jogsobre, jogsenha, joglog, codcidade, jogbairro, jogusuario"

sql = sql & " FROM PESGolShow.dbo.jogador"

sql = sql & " WHERE jogusuario = '"&usuario&"' and jogsenha = '"&senha&"'"

Set Bco= server.createObject("ADODB.Connection")

Bco.open "File Name=" & server.MapPath("strconecta.udl")

set rs=Bco.execute(sql)

response.Write(rs("codjog"))

%>

este codigo da tudo certo mas quando tento fazer com include tipo:

CODE

Arquivo strconecta.asp

<%

Dim Bco

Sub AbreBco()

Set Bco = server.createObject("ADODB.Connection")

Bco.open "File Name=" & server.MapPath("strconecta.udl")

End Sub

Sub fechaBco()

Bco.close

Set Bco = nothing

End sub

%>

fim do arquivo Strconecta.asp

arquivo que chamo o strconecta

<!--#include file="strconecta.asp" -->

usuario=request.Form("nome")

senha=request.form("senha")

sql="SELECT codjog, jognome, jogsobre, jogsenha, joglog, codcidade, jogbairro, jogusuario"

sql = sql & " FROM PESGolShow.dbo.jogador"

sql = sql & " WHERE jogusuario = '"&usuario&"' and jogsenha = '"&senha&"'"

call AbreBco()

set rs=Bco.execute(sql)

response.Write(rs("codjog"))

%>

fim do arquivo

bom com o include gera o seguinte erro.

CODE
Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: 'AbreBco'

/PES/confereacesso.asp, line 24

Sei lá o que acontece, fazia a mesma conexão com access e da tudo ok, não sei se está visualizando o AbreBco como uma variavel, o que não é, ja tentei colocar o Option Expliciti e da o mesmo erro...