这里高手多,帮忙看看以下代码问题出在哪里,如何解决,,谢谢

问题出在日期:

If DCount("*", "RbInDay", "LOTid = " & rst!LotID & " AND Indate= #" & Format(rst!InDate, "DD/MM/YYYY") & "#") > 0 Then

如果只是以下没问题的.加上日期就没找到了,表里有相同的都是=0,请教如何解决,感谢:

If DCount("*", "RbInDay", "LOTid = " & rst!LotID & " ") > 0 Then

---------------------

Private Sub BTN_OK_Click()

    Dim rst As Recordset

    Set rst = New ADODB.Recordset

    rst.ActiveConnection = CurrentProject.Connection

    Dim rst1 As Recordset

    Set rst1 = New ADODB.Recordset

    rst1.ActiveConnection = CurrentProject.Connection

        rst.Open "RbInTemp", , adOpenKeyset, adLockOptimistic

        rst1.Open "RbInDay", , adOpenKeyset, adLockOptimistic

        If rst.RecordCount = 0 Then Exit Sub

         rst.MoveFirst

        Do Until rst.EOF

   If DCount("*", "RbInDay", "LOTid = " & rst!LotID & " AND Indate= #" & Format(rst!InDate, "DD/MM/YYYY") & "#") > 0 Then

‘’------If DCount("*", "RbInTemp", "InDate = #" & rst1!InDate & "#") > 0 Then

   'rst1!Bundle = rst!Bundle + rst1!Bundle

   'rst1!psc = rst!Pcs + rst1!Pcs

   'rst1!NetW = rst!NetW + rst1!NetW

   'rst1.Update

   Else

    Rst1.Add New

    'rst1!Bundle = rst!Bundle + rst1!Bundle

   'rst1!psc = rst!Pcs + rst1!Pcs

   'rst1!NetW = rst!NetW + rst1!NetW

   'rst1.Update

 

  End If

   rst.MoveNext

  Loop

   rst.Close

   Set rst = Nothing

   rst1.Close

   Set rst1 = Nothing

 

 Me.frmRbInTempSub.Requery

 

End Sub