asp id çekemiyorum

merhaba arkadaşlar bi sayfada haber başlıklarını gösteremiyorum bir türlü

<%
Set rshaber = Server.CreateObject("ADODB.Recordset")
rs1 = "Select * from haberler where kategori=1 order by id desc"
rshaber.Open rshaber,Sur,1,3
%>

bu kodun neresinde hata var ?

<%
Set rshaber = Server.CreateObject("ADODB.Recordset")
rs1 = "Select * from haberler where kategori=1 order by id desc"
rshaber.Open rs1,Sur,1,3
%>
yapman gerek

çok teşekkürler fark edememişim