高手看一下！用VB查询SQL数据库,怎么处理

高手看一下！用VB查询SQL数据库,怎么办？
Public Sub nashui()
 'On Error GoTo errorhandler
  strSQL = "INSERT INTO ratapaying select " & _
  "税务管理码,纳税人名称,注册类型,经营行业,税收合计,税种,税目,预算分配比例,税费所属期起,税费所属期止,金库,税款来源,入库日期,管理机关,税款所属机关 FROM " & _
  "OPENROWSET('Microsoft.Jet.OLEDB.4.0'," & _
  "'Excel 8.0;Database=" & Form1.CommonDialog1.FileName & "' ,[" & gzb & "])"
   
   
  Debug.Print strSQL
  cn.Execute strSQL, lngRecsAff, adExecuteNoRecords
   
  Debug.Print "Records affected: " & lngRecsAff
end sub

我把CommandTimeout设为0 就像死机了一样，以前用着好好的 最近就出现这种状况了为什么啊？和数据库中的数据类型为datetime 没关系吧

[解决办法]
看看你的sql数据库是否可以正常连接，看看你的excel文件是否正常。

[解决办法]
用两个ADO分别连ACCESS与SQL连接再处理