Dim rs As New ADODB.Recordset
rs.Open "tbl_ornek", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("Kod") = Me.Combo2.Value
rs("Rakip1") = Me.Text4.Value
rs("Rakip2") = Me.Text6.Value
rs("İskonto") = Me.Text9.Value
rs("Net TL") = Me.Text11.Value
rs("Tarih") = Me.Text14.Value
rs.Update
Set rs = Nothing
Aynı işlem ado ile de yapılabilir.