Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim str As String
    Dim SSQL As String
    SSQL = "SELECT * FROM tbl_ornek"
    Set db = CurrentDb
    Set rs = db.OpenRecordset(SSQL, dbOpenDynaset, dbSeeChanges)
    'rs.MoveFirst
    rs.AddNew
   
    rs![adi] = Me.tadi
    rs.Update
    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing

Sub KayitDolas(Optional xGez As Integer)
Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim str As String
    Dim SSQL As String
'    SSQL = "SELECT * FROM tbl_ornek"
    Set db = CurrentDb
'    Set rs = db.OpenRecordset(SSQL, dbOpenDynaset, dbSeeChanges)
    Set rs = db.OpenRecordset("tbl_ornek", dbOpenTable, dbSeeChanges)

    rs.MoveFirst
    With rs
          ' Set the index.
          .Index = "PrimaryKey"
          If xGez = 0 Then 
            .MoveFirst
          ElseIf xGez = 2 Then
            .MoveLast
          Else
          If Len(Me.tid & "") = 0 Then GoTo Kapat
            .Seek "=", Me.tid
            .Move xGez
          End If
    If .BOF Or .EOF Then GoTo Kapat
          
    End With

    Me.tadi = rs.Fields("adi").Value
    Me.tid = rs.Fields("id").Value
Kapat:
    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing
    
End Sub

Private Sub BtnSonra_Click()
KayitDolas 1
End Sub