Use this.
Dim Str As String
rs.Open "SELECT TestCaseName FROM [General Issue table]", oConnection
Do While (rs.EOF = False)
varTestCaseName_Repeat = rs.Fields(0).Value
rs.MoveNext
If (varTestCaseName_Repeat = rs.Fields(0)) Then
Str= "UPDATE TestCaseName SET name='" & value1 & "', age=" & value2 & " WHERE name='" & rs.Fields(0) & "' And age=" & rs.Fields(1) & ";"
rs.Open Str, oConnection
End If
Loop
Ananda