I am trying to add new records using ado. I have written this test program 

but it did not work. Where I am wrong? Thanks.



The error message is 



ADODB.Recordset error '800a0bb9' 



Arguments are of the wrong type, are out of acceptable range, or are in 

conflict with one another. 



/Arama_Listesi/testlist1.asp, line 11 







<%@ Language=VBScript %>



<%

dim con

dim rst1



set con = server.createobject ("adodb.connection")

con.open "DSN=DeneyDSN"



set rst2 = server.createobject ("adodb.recordset")

rst2.open "Arama_Listesi", con, adOpenKeySet, adLockOptimistic



		rst2.Addnew

		rst2.Fields("tamad") = "Ahmet Ilpars"

		rst2.Fields("sirket") = "Pargem"

		rst2.Fields("istel") = "02123400340" 

		rst2.Fields("durum") = "1"

		rst2.Update



Response.Write(rst2.RecordCount+" adet kayıt arama listesine eklendi.")

rst2.close

con.close

Response.Flush()

Response.End()

%>