If Me.d = 1 Then

Dim z As Integer

    z = DCount("*", "tbl_dvit1", _

               "donem= '" & Me.c _

               & "' and ahidifk= '" & Me.d & "' ")

If z > 0 Then

If MsgBox("Aynı Kayıttan Var Kaydı Getireyim mi?", vbQuestion + vbYesNo, "Gümüşhacıköy TSM") = vbYes Then

Dim rs As ADODB.Recordset

    Dim strSQL As String

strSQL = "SELECT * FROM tbl_dvit1 WHERE donem= " & c

Set rs = CreateObject("ADODB.Recordset")

rs.CursorType = adOpenKeyset

rs.LockType = adLockOptimistic

rs.Open strSQL, CurrentProject.Connection

If rs.State = 1 Then

If Not rs.BOF Then

    id = rs("tbl_dvit1")

    tarih = rs("tbl_dvit1")

End If

rs.Close

End If

hata verdi hocam rs As ADODB.Recordset burada hata verdi bir de benim kayıt kontrolde iki değere göre kontrol ediyor. Bu nu değiştiremem. ado ile hiç uğraşmadığım için tam olarak yapamadı. hala hata alıyorum. Programda yapmak istediğim şey aile hekimi kodu secildi dönem secildi o aile hekiminin tablosuna gidip tabloyu kontrol etmesi, aile hekimim kodu ve dönemi aynı kayıt varsa,mükerrer kayıt yapmadan kayıtlı veriyi getirsin, yoksa yeni kayıta gecsin. yeni kayıt tamam lakin eski kayıtı getiremiyor.