打开数据库中的表的代码问题

huiyi88

我要打开数据库中的表来输出到EXCEL模板中，代码如下：
'打开数据表
Dim Rs As New ADODB.Recordset, DB As Database, Wks As Workspace

Set DB = CurrentDb() 

Rs.Open "select * from 订单 where 销货单号=" & Me.销货单号, CurrentProject.Connection

If Rs.EOF And Rs.BOF Then
。。。。。。

一运行到：Rs.Open "select * from 订单 where 销货单号=" & Me.销货单号, CurrentProject.Connection就出错，这句该怎么写啊？假如我打开表要满足两个条件，即既要满足销货单号，又要满足交期。又怎么写呢？谢谢大师们回复！

tz-chf

DB和Wks多余

销货单号是文本吧？

Rs.EOF就可以了

huiyi88

以下代码OK了
    str = "Select * From 表1 Where 类别='" & Me.Text0 & "'"
Rs.Open str, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDiRst
关键问题出在'" & Me.Text0 & "'"