VBA中的Like语句出现问题[已经解决]

libber

请问下那　在access2003中查询某些特定单号。
在新建查询窗口中用相同的SQL语句都可以查到纪录，而为什么在VBA语句中无法查找到纪录呢
实例如下：
SqlStr = "SELECT 修理记录表.[维修单号] FROM 修理记录表 WHERE 修理记录表.[维修单号] Like '24031201004####'"
ADODB.Recordset
rst.CursorLocation = adUseServer
rst.Open Source:=SqlStr, ActiveConnection:=CurrentProject.Connection, _
         CursorType:=adOpenForwardOnly, LockType:=adLockReadOnly, _
         options:=adCmdText


If rst.EOF And rst.BOF Then
    StrNO = StrNO & "0001"
else
    StrNO = Format(DMax("[维修单号]", "rst") + 1, "000000000000000")　　'本语句未调试，不知道是否正确
end if
再请问下，我如果查找到纪录，在ELSE语句中写：自动将最大值+1作为新的“维修单号”，语句如何写呢？？
我看了下帮助有DMAX方法。因为总是查找不到纪录，所以没有调试，不知道这种用法是否正确呢？？
若不正确请教下正确用法可以吗？

已经解决：解决方法查看：http://club.excelhome.net/thread-559168-1-1.html

[ 本帖最后由 libber 于 2010-4-11 19:50 编辑 ]

lb_bn

建议楼主上传附件,方便找出问题原因所在.