vb6错误-预期过程不是变量

嘿，当我按下我的搜索按钮时，我得到了标题中提到的上述错误

这是密码

我试图设置一个断点并运行代码，但当我按下搜索按钮时，一条错误消息“EXPECTED PROCEDURE NOT VARIABLE”（预期过程不可变）弹出

我对vb6编程很陌生。。有人能帮忙吗

   Private Sub cmdsearch_Click()

    If txtvehiclenumber = "" Then
       MsgBox " Please enter a vehicle number"
    Else

rsFiveGallonDelivery " select * from FiveGallonDelivery where Cstr(VehicleNumber) =  '" & txtvehiclenumber & "'", conn, adOpenDynamic, adLockReadOnly

If Not rsFiveGallonDelivery.BOF And Not rsFiveGallonDelivery.EOF Then
rsFiveGallonDelivery.MoveFirst
     txtdate = rsFiveGallonDelivery.Fields("Date")
     txtdeliverytimeoutrs = FiveGallonDelivery("DeliveryTimeOut")
     txtdeliverytimeinrs = FiveGallonDelivery("DeliveryTimeIn")
     txtfromfactory = rsFiveGallonDelivery.Fields("FromFactory")
     txtdeliverynotecount = rsFiveGallonDelivery.Fields("DeliveryNoteCount")
     txtfromoperations = rsFiveGallonDelivery.Fields("FromOperations")
     txtnormaldeliveries = rsFiveGallonDelivery.Fields("NormalDeliveries")
     txtnewdeliveries = rsFiveGallonDelivery.Fields("NewDeliveries")
     txtbottleincreases = rsFiveGallonDelivery.Fields("BottleIncreases")
     txtpromotions = rsFiveGallonDelivery.Fields("Promotions")
     txtreturnstooperations = rsFiveGallonDelivery.Fields("ReturnsToOperations")
     txtreturnstofactory = rsFiveGallonDelivery.Fields("ReturnsToFactory")
     txtfactorycount = rsFiveGallonDelivery.Fields("FactoryCount")

   Else
     MsgBox " No Such record "
  End If
  rsFiveGallonDelivery.Close

  End If
 End Sub

---

什么是RSFIVEGALLONDEVERY

您的代码现在将其视为一个过程（这就是错误消息）

如果是字符串，则在变量和数据之间放置“=”

---

如果它是一个记录集（我猜是），那么在它之后调用正确的函数来运行sql查询

也许您想要打开一个记录集

rsFiveGallonDelivery.Open " select *...

---

是的，它是一个记录集。。请您解释一下“调用正确的函数来运行sql查询”是什么意思，谢谢：）添加。open修复了这个问题，现在它突出显示了第5行，错误为“object variable或with block variable not set”。这听起来像是编译器错误，而不是运行时错误。如果您想在运行应用程序之前找到所有类似的问题，请使用“完全编译运行”选项（

Ctrl+F5

）。否则，VB6会编译您调用的每个方法。