SQL = "insert into Table1 ([Tarih],[Veri],[Tablo Adı]) " & _
"SELECT [Tarih],[Veri],""" & LstTabloSec.Value & """ " & _
"FROM [" & txtExcelSyf & HcrAralik & "] IN '" & txtDosyaAdres & "' 'EXCEL 12.0;'"
CurrentDb.Execute SQL
aşağıdaki kodu dener misiniz?