ADO Hakkında

[leumruk]

Merhaba,
Aşağıdaki kod ile ilgili iki sorum olacak:
1- Veri tabanına birçok kayıt yaptıktan sonra (örneğin: 20 satır) bu satırları silip yeniden kayıt yapmak istediğimde önceki satırlar boş olmasına rağmen 21'den devam ediyor. Bunun nedeni nedir ve çözümü var mıdır?
2- Aşağıda kırmızı ile belirttiğim "Veri" isimli veritabanı dosyasının yerine başka bir isimle dosya oluşturup koddaki ilgili yerine yazmama rağmen kod hata veriyor. Bunun nedeni ne olabilir? (Hata: Öğe istenen ad veya sıra sayısı ile ilişkili derleme içinde bulunamıyor.)

Sub veri_yaz2()
Dim i As Byte
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & ThisWorkbook.Path & _
"\DERSLER\[COLOR="Red"]Veri.xls[/COLOR];extended properties=""Excel 8.0;hdr=yes"""
rst.Open "Select * from [Sayfa1$]", conn, 1, 3
baslik = InputBox("Başlık Giriniz", "BAŞLIK", "Başlık" & rst.RecordCount + 1)

If Not rst.EOF Then
rst.AddNew
rst(0).Value = baslik
rst(1).Value = Format(Date, "dd.mm.yyyy")
For x = 2 To 15
rst(x).Value = Cells(x - 1, "A").Value
Next
rst.Update
rst.Close
End If
MsgBox "Kayıt Başarı ile girildi."
End Sub