@feraz hocamınkine alternatif olarak)

kodu aşağıdaki gibi düzenler misiniz

    Dim con As ADODB.Connection

    Dim rs As ADODB.Recordset

    Dim sConn As String, sConn2 As String

    Dim degerler, cinsiyet, sSql, GcDgr As String

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

'hy Excel Acıp kapatma_____________________________________

    Dim xlApp As Object

  

    Set xlApp = CreateObject("Excel.Application") 'exceli aç

    With xlApp

       .Workbooks.Open (txtDosyaAdres) 'Excel dosyasını aç

       .ActiveWorkbook.Close False ' kaydetmeden kapat _

                                    eğer kaydetmesini isterseniz .ActiveWorkbook.Close TRUE yapmalısınız

       If .Workbooks.Count = 0 Then .Quit ' kaç Excel dosyası açık eğer başka açık dosya yoksa Excel kapatır

     End With

'hy Excel Acıp kapatma_____________________________________Bitti

    degerler = ""



sSql = "select F2,F6,f15 from [Bilgiler1$] where f2 Is Not Null" '

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

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

    

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

    x = 0

   Do Until rs.EOF = True

   x = x + 1

        cinsiyet = cinsiyet & rs.Fields(2)

        GcDgr = ", '" & rs.Fields(1) & "'"

        If x = 8 Then GcDgr = ", '" & CStr(CDate(rs.Fields(1))) & "'" 'doğum tarihini tarihe çevirmek için

        If x = 11 Then GcDgr = "" 'NUFUSA KAYITLI OLDUĞU satırını pas geçmesi için

        degerler = degerler & GcDgr

    rs.MoveNext

Loop

    degerler = Mid(degerler & ", '" & cinsiyet & "'", 2)

     

sSql = " insert into [Veriler1] (seriNo, kimlikNo, soyad, adi, babaAd, anneAd, dogumYeri, dogumTarih, medeni, durumu, nufusil, nufusilce, nufusKoyMahalle,cinsiyet) " & _

                      " values (" & degerler & ")"

    CurrentDb.Execute sSql

    Set rs = Nothing