webbrowser在打开网址的时候，突然断线了，如何避免

webbrowser在打开网址的时候，突然断线了，如何处理啊
webbrowser在打开网址的时候，突然断线了，如何处理啊
我是从数据库中循环出网址，用webbrowser打开，得到源码。数据有2万条，如果中间断网线，就是不走，如何提示已断线，并且连上网线后继续循环啊，请教高手，太难了

do While rs.EOF = False
  WebBrowser1.Navigate rs("links")
  WebBrowser1.Silent = True
 
  html = WebBrowser1.Document.body.innerHTML
  rs.MoveNext
  Loop

[解决办法]
断线会出现错误！可以使用错误处理，记录断线时处理到的记录编号，然后待正常之后，从记录编号继续处理。

[解决办法]
这样不知行不行，试试看

VB code

dim a as doubledim OverTime as booleana=now+30#/24#/3600#OverTime=Falsedo While rs.EOF = False     doevents    if now>after then        debug.print "30s overtime!"        OverTime=True        exit do    end if    WebBrowser1.Navigate rs("links")     WebBrowser1.Silent = True     html = WebBrowser1.Document.body.innerHTML     rs.MoveNext     a=now+30#/24#/3600#    OverTime=FalseLoopif OverTime then    '...else    '...end if
[解决办法]
    if now>after then
改成
   if now>a then