我是个新手，请大家帮忙看看这个问题，关于数据字段相减的问题

Question

主要实现两个表间的字段相减，得到的结果放在另一个字段里。
代码如下：
Option Explicit
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Dim str As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "provider=microsoft.jet.oledb.4.0;" _
& "data source=" & App.Path & "\water.mdb;" & "persist security
info=false"
str ="select * from 客户信息,配送日志 where 客户信息.客户=配送日志.姓名"
rs.CursorLocation = adUseClient
rs.open str,conn,adOpenKeyset, adLockPessimistic
rs.Fields(12) = rs.订购数量 - rs.用量  '订购数量减去用的等于剩余的
End Sub
总是不出相应的结果，请问该怎么解决

Answer 1

str ="select * from 客户信息,配送日志 where 客户信息.客户=配送日志.姓名"
改为：
str ="select (订购数量 - 用量) As 剩余  from 客户信息,配送日志 where 客户信息.客户=配送日志.姓名"  '把订购数量减去用量得到的结果放到 剩余里