form1 in üzerinde bir buton oluştur ve koduna

Dim dbs As DAO.Database
Dim rst As DAO.Recordset

Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * from A1")
With rst
.AddNew
!ülke = Me.c1.Column(1)
!sehir = Me.C2.Column(1)
!ilce = Me.C3.Column(1)
.Update
End With
rst.Close
dbs.Close

ekle