Código:
Dim webStrConn webStrConn= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base.mdb") Function webDato(tipo,query,tabla,campo,criterio) 'tipo = 1.SELECT 2.Query, query Dim webConn, webRs, strSQL if tipo=1 then strSQL="SELECT * FROM "&tabla&" WHERE "&campo&"="&criterio else strSQL=query end if set webConn = Server.CreateObject("ADODB.Connection") webConn.Open webStrConn set webRs = webConn.Execute (strSQL) set webDato = webRs End Function