Não entendo o erro

[rodrigotnoma]

Tenho meu código de conexões:

teste_conexao_BD.asp

<%

Option Explicit

Dim conn,connstring,comando,nome,sql,rs

Sub AbreConexao(conn,connstring)

Set Conn=Server.CreateObject("ADODB.Connection")

Connstring = "driver={SQL Server};" & _
"server=USER-B95C64A782\SQLEXPRESS1;" & _
"database=teste1;" & _
"Uid=sa;" & _
"Pwd=123456;"

Conn.Open Connstring

End Sub

'##################################################################

Sub AbreRs(comando,nome)

Set nome=Server.CreateObject("ADODB.Recordset")

Set nome= Conn.Execute(comando)

End Sub

'##################################################################


Set rs = Nothing

Set Conn = Nothing

%>

E faço um include nesta pagina: Sub.asp

<--!#include file="teste_conexao_BD.asp"-->
<%

Call AbreConexao(conn,connstring)

sql = "select * from tb_usuario"

Call AbreRs(sql,rs)

Do While Not rs.EOF

Response.Write(rs("nome")) & "    " & (rs("unidade")) & "<br>"

rs.Movenext

Loop


%>

E da esse erro:

Tipos incompatíveis: 'AbreConexao'

/teste/Sub.asp, line 4

Obrigado.

[bareta]

você não definiu os paranetros que passa na sub...

e o conn não precisa estar lá...

connstring