Aynı işlem ado ile de yapılabilir.

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