For k=2 to 7
getcol=Browser("Browser").Page("IClinic System main page").Frame("Frame_59").WebTable("TABLELIST").GetCellData(i,k)
getcol= split(getcol,",")
getcol1=cstr(getcol(0))
If getcol1=" LEE" Then
Browser("Browser").Page("IClinic System main page").Frame("Frame_59").WebTable("TABLELIST").ChildItem(i,k,"WebElement",0).FireEvent "ondbclick"
i=crow+1
Exit for
End If