还有问题呢。。怎么解决呢

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*,[客户信息].订购票数-[配送日志].回收票数 as 剩余票数 from 客户信息,配送日志 where [客户信息].姓名 = [配送日志].客户"
     rs.CursorLocation = adUseClient
     rs.Open str, conn, adOpenKeyset, adLockPessimistic
 End Sub
刚才调试一下，出现这样的提示：
至少一个参数未被指定值，关标停在rs.Open str, conn, adOpenKeyset, adLockPessimistic

Answer 1

str = "select*,[客户信息].....
-------------------------
*号前面加一个空格试试
str = "select *,[客户信息].

Answer 2

str = "select*,[客户信息].订购票数-[配送日志].回收票数 as 剩余票数 from 客户信息,配送日志 where [客户信息].姓名 = [配送日志].客户"
------------------------------------------
请仔细看看，要确保其中的列要与表对应，比如：[客户信息].订购票数, "订购票数" 必须是 "[客户信息]" 表中的列，否则就会提示上面所描述的错误