请教个MSSQL连接和断开的问题

茫然

我想在循环中检查网络和数据库连接是否正常，如果网络或数据库断开后可以重新连接数据库。例如下面代码：
有2个疑问：
1.假如第一次循环是网络正常，数据库连接成功。如果网络一直正常，这时第二次循环到$conn = ObjCreate("ADODB.Connection") 就出错了。可能是没有执行$conn.close的原因。
2.假如第一次循环是网络正常，数据库连接成功。第二次循环网络断了，$conn.close能断开吗（网络都是断的，我看到SQL服务器上的连接进程还在 貌似不管它，服务器上的进程过一会就自动断掉了）。
各位大侠给看看，如何做！ 谢谢！

Dim $Server = "192.168.10.100" 
Dim $ID = "sa" 
Dim $pw = "123" 
DIM $Company="database01" 
dim $conn, $RS
 
While 1
If Ping($Server )
$conn = ObjCreate("ADODB.Connection")
$RS = ObjCreate("ADODB.Recordset") 
$conn.Open ("driver={SQL Server};server="&$Server&";uid="&$ID&";pwd="&$pw&";database="&$Company)   
$RS.ActiveConnection = $conn
Else
        $conn.close
        $RS.close
EndIf        
WEnd