VBA操作IE的错误,高手帮忙瞄一眼

Sub Go()
Dim iea
Set iea = CreateObject("InternetExplorer.Application")
With iea
.Visible = True
.navigate "http://ccrm.hupu.net/Desktop/quickLockApproval.asp"
Do Until .Readystate = 4
DoEvents
Loop
.Document.Forms(2).All("JGMC").Value = "test" '机构名称
.Document.Forms(2).All("JGDZ").Value = "1" '机构地址
.Document.Forms(2).All("JYFW").Value = "1" '单位简介 是textarea
End With
End Sub

问题1：每次执行到.Document.Forms(2).All("JYFW").Value = "1" 错误，因为单位简介是textarea，无法给VALUE赋值。不知道为什么。
问题2：执行 "http://ccrm.hupu.net/Desktop/quickLockApproval.asp"这个页面的时候，经常不是想要的页面，而是打开的是“服务器连接超时”的页面，就像没有登陆时，打开这个地址一样。