When updating the values of several records in a loop, put a BeginTrans,CommitTrans around the loop. This will significantly speed up the updateprocess:
BeginTrans Do Until dsData.EOF dsData.Edit dsData!sState_cd = "CA" dsData.MoveNext Loop CommitTrans