简单的条件语句问题不知道有哪个大哥能帮我改下

Question

objno1.Open "select * from 发货回单 where  flag=0 and 客户名称 =""& trim(txtname) &""", objcn
 
txtname是一个文本框~~
rivate Sub txtname_LostFocus()If objno1.EOF Or objno1.BOF Then
MsgBox "客户名称输入错误或不存在请重新输入", vbOKOnly, "出货回单"
txtname = ""
txtname.SetFocus
End If
If objno1.RecordCount > 0 Then
MsgBox "已经找到" & txtname & "先生的出货清单请按照货单如实填写如下内容", vbOKOnly, "出货回单"
End If
End Sub
我输入了数据库中一条存在的记录但是还是运行
MsgBox "客户名称输入错误或不存在请重新输入", vbOKOnly, "出货回单"
这个问题是怎么回事情
objno1.Open "select * from 发货回单 where  flag=0 and 客户名称 =""& trim(txtname) &""", objcn
这条语句怎么改啊？

Answer 1

objno1.Open "select * from 发货回单 where  flag=0 and 客户名称 =""& trim(txtname) &""", objcn
=============
objno1.Open "select * from 发货回单 where  flag=0 and 客户名称 =""& trim(txtname.text) &""", objcntextname应改为 textname.text

Answer 2

Dim strsql as String
strsql="select * from 发货回单 where flag=0 and 客户名称='" & trim(textname.text) & "'"
if objno1.State=adStateOpen then objno1.Close
objno1.CursorLocation = adUseClient
objno1.Open strsql, objcn, adOpenStatic, adLockOptimistic

Answer 3

objno1.Open "select * from 发货回单 where  flag=0 and 客户名称 =""& trim(txtname) &""", objcn
你调试一下这里，看能返回记录么！？，最好把语句放到查询分析器里运行。
好像字符的话要用单引号吧。

Answer 4

if objno1.State=adStateOpen这句是什么意识啊？