Hi all,

i want to assign the value to the specify recordset

below is my coding:

Code:
 For i = 0 To Rs.RecordCount - 1
        If DateAdd("s", Rs("Frequency"), Rs("Lastreaddate")) > Now Then
        
            tmpOPCItem(i).Read OPCDataSource.OPCDevice, myValue(i), myQuality(i), myTimeStamp(i)
            'strAddress() = Split(tmpOPCItem(i).ItemID, ":")
            
            tmpValue = myValue(i)
            
            'strSQL = "Select Address,LineId,LifterId,ComponentId,TriggerValue,ResetValue, " _
                    & "ActionId,ActionPara1,OPCServer,RealTimeData,timeCounter " _
                    & "from DELL_OPC_ADDRESS where processing <> 1 " _
                    & "and Active=1 and OPCServer=" & txtOPC.Text & " " _
                    & "and Address='" & strAddress(1) & "'"
            
            'RsOPC.Open strSQL, Conn, adOpenStatic, adLockBatchOptimistic
            strTrigger = Rs("TriggerValue")
    
            If tmpValue <> "" Then
                NeedTrigger = False
                Select Case strTrigger
                    Case "EMPTY"
                        If CStr(tmpValue) = "" Then NeedTrigger = True
                    Case "NONEMPTY"
                        If CStr(tmpValue) <> "" Then NeedTrigger = True
                    Case "TRUE", "FALSE"
                        If CBool(tmpValue) = CBool(strTrigger) Then
                            NeedTrigger = True
                        End If
                    Case "NONZERO"
                        If IsNumeric(tmpValue) Then
                            If CDbl(tmpValue) <> 0 Then NeedTrigger = True
                        End If
                    Case "0", "1", "2"
                        If tmpValue = strTrigger Then NeedTrigger = True
                End Select
    
                'Check if the TriggerValue stays there forever (due to ResetValue='NO ACTION').
                'If yes, then make sure TriggerValue <> RealTimeData
                If NeedTrigger And Rs.Fields("ResetValue") = "NO ACTION" Then
                    If tmpValue = Rs.Fields("RealTimeData") Then NeedTrigger = False
                End If
            End If
    
                If NeedTrigger Then 'If tmpValue.ToUpper = CType(DR("triggerValue"), String).ToUpper Then
                '    theValue = tmpValue
                     Set NewItem = lstviewEvent.ListItems.Add(, , Rs.Fields("LifterId"))
                     NewItem.ListSubItems.Add , , Rs.Fields("Address")
                     NewItem.ListSubItems.Add , , myValue(i)
                     NewItem.ListSubItems.Add , , Time
                     
                       
                 End If
                 
                 Rs("LastReadDate") = Now
            End If
            'Conn.Close
            Rs.MoveNext
        Next
        'Loop
        mytime = (GetTickCount() - mytime)
        MsgBox "TimeStamp: " & mytime & vbNewLine & "RecordCount: " & Rs.RecordCount
        'Timer1.Enabled = True
I want to update the recordset ( Rs("LastReadDate") ) become the time now. But failed to do so.

Can someone have a clear guide to me?

thanks.