Private Sub BtnExceliAl_Click()



xDosyaAdi = txtDosyaAdres

xSayfaAd = LstExcelSyf

'___________________________________________________



xSQL = "INSERT INTO LİSTE ([SIRA NO],[NO],[ADI SOYADI],[YIL],[SPOR DALI]) " & vbNewLine & _

       "SELECT [F1],[F2],[F3],[F9],[F10] FROM [" & xSayfaAd & "] IN """ & xDosyaAdi & """ ""Excel 12.0 Xml;HDR=No""" & vbNewLine & _

       "where isnumeric([F9])"



'____________________________________________________________________________________

CurrentDb.Execute xSQL

Set rs = CurrentDb.OpenRecordset("SELECT * FROM LİSTE")



If Not (rs.EOF And rs.BOF) Then

    rs.MoveFirst 'Unnecessary in this case, but still a good habit

    Dim dz(2) As String

    Do Until rs.EOF = True

        If rs(0) & "" <> "" Then

            For x = 0 To 2

                dz(x) = rs(x)

            Next x

        Else

            rs.Edit

            For x = 0 To 2

                rs(x) = dz(x)

            Next x

            rs.Update

        End If

        rs.MoveNext

    Loop

End If

rs.Close

End Sub