如何从二张不同表的上做往来明细表？

Question

现在我碰到这样一个问题，超级郁闷了也几天了，不知道该如何处理。我现在通过excel+access开发一个进销存。
在access中我有以下二张表，一张是用来存放销售情况的数据表（其中有以下字段：年，月，日，发货单号，客户名称，产品名称，销售金额），一张是用来存放回款情况的数据表（其中有以下字段：年，月，日，收款单号，客户名称，回款金额）。其中二张表关联的数据是字段“客户名称”。
我现在要做一张客户往来明细表，格式如下：
-----------------------------------------------------------------------------------------
年   月   日    单号    摘要        销售金额      回款金额        余额
-----------------------------------------------------------------------------------------在上表中我从一张表中读出数据我是能够做到的，但是从二张表我就不知道该如何处理了？因为二张表都有 年 月 日字段，还有回款金额在listview上是显示在另外一列的，这时又该如何处理？
sql = "SELECT ID,年,月,日,发货单号,产品名称,规格,数量,单位,金额 FROM sale" & _
   " WHERE (((CDate([月] & '-' & [日] & '-' & [年])) Between #" & CDate(TextBox1.Text) & "# And #" & CDate(TextBox2.Text) & "#))"
    sql = sql & "and 客户名称 like '%" & TextBox3.Text & "%'"
      sql = sql & " ORDER BY 月,日,发货单号"
  RST.Open sql, CNN, adOpenKeyset, adLockOptimistic
  ListView1.ListItems.Clear
  Do Until RST.EOF
  With ListView1.ListItems.Add(, , RST.Fields("年"))
      .SubItems(1) = RST.Fields("月")
      .SubItems(2) = RST.Fields("日")
      .SubItems(3) = RST.Fields("发货单号")
      .SubItems(4) = RST.Fields("产品名称") & RST.Fields("规格") & "  " & RST.Fields("数量") & RST.Fields("单位")
      .SubItems(5) = Format(RST.Fields("金额"), "#,##0.00")
       RST.MoveNext
   End With
   Loop
    xsje = GetxsjeSum(ListView1.ListItems.Count)
    hkje = GethkjeSum(ListView1.ListItems.Count)
    
    With ListView1.ListItems.Add
    .SubItems(4) = "    本 月 合 计"
    .SubItems(5) = IIf(IsNull(xsje), "", Format(xsje, "#,##0.00"))
请大家我帮我看看？谢谢！