connessione a DB attraverso subroutine

[deivnet]

Ti da errore perchè tu richiami e basta la funzione e tutto ciò che crei lo fai all'interno della tua funzione quando esci tutto muore perchè perdi lo "scope" prova invece a fare così :

Function OpenConn(path)
strCONN="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(path)
set CONN = server.createobject("ADODB.connection")		
CONN.Open strCONN
set OpenConn = CONN
End Function

set CONN = OpenConn("database/db.mdb")	
SQL = "SELECT * FROM Tabella"
set RS = Server.CreateObject("ADODB.Recordset")			
RS.Open SQL, CONN, 1, 3