帮我看看这个程序，在线急等

sisound

Dim a As String
Dim STemp As String

Dim rs As ADODB.Recordset
'为定义的数据集变量分配空间
Set rs = New ADODB.Recordset
'为打开数据表“查询语句”字符变量赋值
a = InputBox("请输入五位数的单号,例如61002, 产品型号不用输入", "输入单号")
MsgBox a
STemp = "Select * From 投料单明细 where 单号='" & a & "'"（这个地方a是一个变量，请问如何写进去，我怎么写都是错的）

rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

fan0217

用这个试试：

STemp = "Select * From 投料单明细 where 单号=" & a &";"

sisound

谢谢你,就是这样,不错!!!

tz-chf

得到的a应该先作个判断

sisound

我应该判断什么呢,如何判断?

谢谢

andymark

单号是文本类型的则是 单号='" & a & "'"

数字类型的则是  单号=" & a &"