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!