aşağıdaki şekilde çözdüm,

Dim rs As New ADODB.Recordset
rs.Open "SELECT Sum(SIPARIS_LISTESI.TOP_METRE) AS Konik FROM (PARTILENENLER LEFT JOIN PARTILENENLER_DURUM ON PARTILENENLER.PARTI_NO = PARTILENENLER_DURUM.PARTI_NO) LEFT JOIN SIPARIS_LISTESI ON PARTILENENLER.SIPARIS_NO = SIPARIS_LISTESI.SIPARISNO HAVING (((PARTILENENLER_DURUM.DURUMU)<>'sevk edildi') And ((PARTILENENLER_DURUM.DURUMU)<>'paket'))", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Not rs.EOF Then

MsgBox rs("Konik")


Else
End If
rs.Close