Private Sub aktar_Click()

    Dim rs As New ADODB.Recordset

    rs.Open "anatoblo", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    

    Dim i As Integer

    For i = 1 To Me.Liste1.ListCount - 1

        rs.AddNew

            rs("id") = Me.Liste1.Column(0, i)

            rs("Adi") = Me.Liste1.Column(1, i)

            rs("Soyadi") = Me.Liste1.Column(2, i)

            rs("Adres") = Me.Liste1.Column(3, i)

            rs("Tel") = Me.Liste1.Column(4, i)

        rs.Update

    Next

    

    rs.Close

    MsgBox "Kayıtlar AnaTablo'ya Aktarılmıştır."



End Sub