codice:
Dim conn As new ADODB.Connection
Dim rs as New ADODB.Recordset
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("user.mdb") 'Server.mapPath non so cos'è..
SQL = "SELECT * FROM topic WHERE Categoria LIKE '%" & TIPO & "%' ORDER BY Data DESC"
rs.Open SQL, conn, 3, 3
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
..praticamente è uguale.. la stringa di connessione penso che vada bene (a parte quel Server.MapPath) perchè si usa sempre ADO..
solo che nei riferimenti devi aggiungere Microsoft ActiveX Data Object!