si dovrebbe scrivere

rs.Open sql, objConn, 1, 3