小弟遇到个问题，vb用ado连接sql 网络不稳定会出现错误

public declare function internetgetconnectedstate _
    lib "wininet.dll" （byref lpdwflags as long, _
    byval dwreserved as long) as long

public function isnetconnectonline（) as boolean
    isnetconnectonline = internetgetconnectedstate（0&, 0&)
end function