Kod:
Set con = CreateObject("adodb.connection")
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & kk & ";"
Set rs = CreateObject("adodb.recordset")
sorgu = "SELECT SUM(MALIYET) FROM [URUN_DOSYALARI] where [URUN_KODU] ='" & ListBox1.List(ListBox1.ListIndex, 0) & "'"
rs.Open sorgu, con, 1, 3
Range("a2").CopyFromRecordset rs
textbox1.Value = Range("a2").Text