TRy this
Sub Update_Tests_Fields()
Dim td As object
Dim com As TDAPIOLELib.Command
Dim RecSet As TDAPIOLELib.Recordset
Dim rng As Range
Set rng = Sheets("Sheet1").Range("A1:A1000")
Set td = CreateObject("TDApiOle80.TDConnection")
td.InitConnectionEx "http://uschw001v:8080/qcbin"
td.Login "user", "paswd"
td.Connect "PRD", "IMGLOBAL"
Set com = tdc.Command
For Each t In rng
com.CommandText = "Update TEST Set TS_USER_03='" & t.Offset(0, 1) & "' where TS_TEST_ID='" & t & "'"
Set RecSet = com.Execute
Next
Set tfact = Nothing
td.Logout
td.Disconnect
td.ReleaseConnection
Set td = Nothing
End Sub