Private Sub veri_aktar_Click()
xListeSQL = Me.Liste8.RowSource
CurrentDb.Execute "INSERT INTO genel_toplam ( sipno, kg ) " & xListeSQL
End Sub
aşağıdaki kodu dener misiniz?