Find and Update Recordset

[Ceylon]

Hi

I have following code to find the hashvalue in HashValue colunm and update the Time in BST column. But i breaks in (objRecordSet.Fields.Item("BSTime") = Time) here (**Edit Line #23 **). Pls HELP

Function UploadBST()
 
'On Error Resume Next
Dim objConnection As ADODB.Connection
Dim objRecordSet As ADODB.Recordset
Dim hashvalue1 As String
 
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")
 
objConnection.Open _
    "Provider = Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source =C:\Documents and Settings\Owner\My Documents\New.mdb;"
 
objRecordSet.Open "SELECT * FROM TS", _
    objConnection, adOpenStatic, adLockOptimistic
 
hashvalue1 = Environ("Username") & Date
strCriteria = "HashValue = 'hashvalue1'"
 
objRecordSet.Find strCriteria
 
objRecordSet.Fields.Item("BSTime") = Time
objRecordSet.Update
 
 
objRecordSet.Close
objConnection.Close
 
 
End Function

[ADezii]

@Ceylon
Try changing the Cursor Type:

objRecordSet.Open "SELECT * FROM TS", _
objConnection, adOpenKeyset, adLockOptimistic

[NeoPa]

Please describe more clearly what you mean by "It breaks". Is there an error message? What happens exactly?

We shouldn't be spending extra time just trying to work out what your question means.

[Ceylon]

Ok, Thanks for the info

[Ceylon]

@ADezii
this worked thanks