ARKADASLAR ONCELİKLE HEPİNİZE KOLAY GELSİN
UFAK Bİ SORUNUM VAR Bİ BAKARSANIZ SEVİNİRİM.....

Private Sub Command8_Click()
On Error Resume Next
Dim dbdosya As Database, dbdosya1 As Database
Dim rskayıtt As Recordset, rskayıtt1 As Recordset
Set dbdosya = OpenDatabase("C:\Program Files\kayıt listesi.mdb")
Set rskayıtt = dbdosya.OpenRecordset("select * from kayıt")
Set dbdosya1 = OpenDatabase("C:\Program Files\arama.mdb")
Set rskayıtt1 = dbdosya1.OpenRecordset("select * from arama")

Dim SAd1 As String, a1 As String, SAd11 As String, SAd21 As String, SAd31 As String, SAd41 As String 'veri tabanında alacağımız bilgiyi koyacağımız değişken
Dim a, b
a = 0
b = 0
rskayıtt.MoveFirst 'tablonun ilk kaydına git
Do Until rskayıtt.EOF 'tablo sonuna kadar devam edecek
a1 = Text5.Text
If rskayıtt!yazarın_adı = Text5.Text Then 'tablonun "Ad" sutununa bak

SAd1 = rskayıtt!kitap_adi 'aranan "Ad" bulundu - ilgili "SoyAd"ı al
SAd11 = rskayıtt!kitap_turu
SAd21 = rskayıtt!yazarın_adı
SAd31 = rskayıtt!giriş_tarihi
SAd41 = rskayıtt!kayıt_no


rskayıtt1.AddNew
rskayıtt1!kitap_adi = SAd1
rskayıtt1!kitap_turu = SAd11
rskayıtt1!yazarın_adı = SAd21
rskayıtt1!giriş_tarihi = SAd31
rskayıtt1!kayıt_no = SAd41
rskayıtt1.Update
a1 = Text5.Text
GoTo d5
End If

Loop

d5


ClearAllTextBoxes Form1
DataGrid2.Visible = True
If MsgBox("Belirtilen Kayıt Bulundu" + vbCrLf + "Goruntulemek İstermisiniz?", 36, "BİLGİ") = vbYes Then
DataGrid2.Refresh
Adodc2.Refresh
Frame6.Visible = True
Else
Frame6.Visible = False
MsgBox "Kayıt Goruntuleme İptal Edildi", 64, "Uyarı"
End If
End Sub

kodlarını kullandığımda rskayıtt1 tablosuna sadece ilk kaydı ekliyor
fakat tabloda aynı isimden iki tane kayıt bulunmakta bunların ikisinide eklemesini istiyorum ama bi turlu beceremedim yardımcı olursanız sevinirim....
ŞİMDİDEN TESEKKUR EDERİM
__________________