Sub karlilikalti()
Dim baglan As New Connection
Dim rs As New Recordset
baglan.Open "Provider= Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\SERHAN\Desktop\TPR.accdb;"
rs.Open "select [TARİH],[KOD],[CARİ HESAP ÜNVANI],[STOK KODU],[STOK AÇIKLAMASI],[NET BİRİM FİYAT],[KAR %] from [SİP TPR] "...