Fijate que creas el recordset pero no la conexion a la BD. La línea que te falta sería algo así:
Código:
Set con = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\tuBD.mdb"))
Eso para una BD de access, el driver cambia para una BD de SQL.
Suerte!!