Criando funçao para comandos do mysql

Boa tarde pessoal,

tentei varios tutorias pra criar uma classe em asp para tentar colcolar o acesso ao banco e outros codigos porém nenhuma funcionou..

depois tentei criar uma função acima do head da pagina e tambem não esta funcionando, ou seja não estou conseguindo trabalhar com funçoes e nem classes no asp

apesar de nso tutorias parecer tão simples nenhum resolve meus problemas

tentei a seguinte função na propria pagina:

public function Conn(SQL)
	Dim Conexao, mostrar
	set Conexao = Server.CreateObject("ADODB.Connection")
	Conexao.ConnectionString = ("Driver=MySQL ODBC 5.1 Driver;DataBase=BdCliente;Server=localhost;Uid=root;PassWord=root;")
	conexao.open
	set mostrar = Conexao.execute(SQL)
	conexao.close

end function

e na pagina estou chamando com o codigo:

<%
dim cmdSql, Mostrar
cmdSql = "select usr_cpf, usr_nome, usr_nivel, usr_uf, usr_email, usr_ativo from usuario order by usr_uf, usr_nome;"
mostrar=Conn(cmdSql)
do until mostrar.EOF

 response.Write("<tr><td> </td></tr><tr><td> </td></tr>")
 response.Write(mostrar)
 Mostrar.MoveNext

Loop

Alguem tem uma dica do que eu posso tentar pra não ficar toda hora tendo q colocar todos parâmetros do banco no codigo?