VB获取recordset记录集的时候,出现怪现象

VB获取recordset记录集的时候,出现怪现象。请高手看看
VB code
With conn
            .CursorLocation = adUseClient
            .CommandTimeout = 5
            .ConnectionString = " Provider=SQLOLEDB.1;Persist Security Info=True;Data Source=" & dbserver & ";Initial Catalog=" & dbName & ";User ID=" & userName & ";Password=" & psw
'            Debug.Print .ConnectionString
            
            .Open

dim rs As ADODB.Recordset
set rs = nothing
Set rs = conn.Execute(strSQL)
if rs is nothing then
   msgbox "没有获取到数据"
end if
    End With


当执行完 Set rs = conn.Execute(strSQL)这句时候,有时候会出现 rs 是 nothing这种情况。
局域网络不好的时候,就经常出现。
请问应该怎么避免此类情况啊。?

------解决方案--------------------
假如你的SQL拼写没有错误,那估计就是局域网内丢包,丢包也会有此现象。