txtDosyaAdres = CurrentProject.Path & "\AKTAR.xlsx" ' Buraya dosya adresi ve ad? yaz?lacak

    Dim con As ADODB.Connection

    Dim rs As ADODB.Recordset

    Dim sConn As String, sConn2 As String

    Dim degerler, sSql As String

    

    degerler = ""



sSql = "select * from [Sayfa1$]" '

    sConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & txtDosyaAdres

    sConn2 = ";Extended Properties=""Excel 12.0 Xml;HDR=No"";"

    

Set con = New ADODB.Connection

    con.Open sConn & sConn2



Set rs = New ADODB.Recordset

    rs.CursorLocation = adUseClient

    rs.Open sSql, con, adOpenKeyset 'rather use this so RecordCount works

    

    If rs.RecordCount = 0 Then Exit Sub

    rs.MoveLast

    rs.MoveFirst

    Do Until rs.EOF = True

        degerler = degerler & ", '" & rs.Fields(1) & rs.Fields(2) & rs.Fields(3) & "'"

    rs.MoveNext

    Loop

    

    degerler = Mid(degerler, 2)

    

sSql = " insert into [Veriler1] (kimlikNo, ad, soyAd, babaAd) " & _

                      " values (" & degerler & ")"

    CurrentDb.Execute sSql

    Set rs = Nothing