Tür uyuşmazlığı - Güncelleme Hatası

[ftekin]

Excelde hazırladığım bir dosyadaki form üzerinde bul, kaydet, güncelle ve sil gibi işlemleri yaptırdığım formum var.Veritabanı olarak mdb veritabanı kullandım.
ID alanı veritabanında Otomatik sayı olarak tanımlı.Güncelleme de ID alanı ile ilgili tür uyuşmazlığı hatası alıyorum.Yardımcı olabilecek var mı?

Bul ile kaydı görüntületmede aşağıdaki kodları;
---------------------------------------------

Dim i As Integer
If RS("ID").Value > 0 Then i = RS("ID").Value
If Len(RS("TatilTarihi").Value) = 8 Then MaskEdBox1.SelText = RS("TatilTarihi")
If RS("Aciklama").Value <> "" Then TextBox1 = RS("Aciklama")


================================================
G&#252;ncelle ile kayd&#305; g&#252;ncellemek i&#231;in a&#351;a&#287;&#305;daki kodlar&#305; kullan&#305;yorum.
-------------------------------------------------------------

conn.ConnectionString = Dosya_Yolu
conn.Open

Set RS = CreateObject("ADODB.recordset")
Sql = "SELECT * FROM PARAMETRETATIL Where ID='" & CLng(i) & "'"
RS.Open Sql, conn, 1, 3
RS.Delete
RS.Update

RS.AddNew
If Len(MaskEdBox1.ClipText) = 8 Then RS("TatilTarihi") = MaskEdBox1.ClipText
If TextBox1.Value <> "" Then RS("Aciklama") = TextBox1

RS.Update

 

[Zeki Gürsoy]

&#350;u &#351;ekilde deneyin.

RS("TatilTarihi") = [B]CDate([/B]MaskEdBox1.ClipText[B])[/B]

 

[ftekin]

Hocam hatay&#305; ID alan&#305;nda veriyor.

Accass'te Otomatik Say&#305; olarak tan&#305;mlad&#305;&#287;&#305;m&#305;z alan ne olarak g&#246;r&#252;n&#252;r?
Integer'm&#305;, Long, mu ya da ne? San&#305;r&#305;m bu konuda bir sorun var.

 

[Zeki Gürsoy]

Otomatiksay&#305; uzun tamsay&#305;d&#305;r (Long).

 

[abrenda]

Zek&#304; Beyyyy Merhaba Nasilsiniz??