Public conn As New ADODB.ConnectionconnXls = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\data\language.xls;Extended Properties='Excel 8.0;HDR=Yes'"
conn.Open connXls 
rs.Open "select * from [menu$]", conn, adOpenKeyset, adLockOptimistic偶尔会出现灾难性故障提示,要求debug或者end。
end了以后,重新运行,说excel被独占性打开,无法连接。关掉vb工程,再打开,又运行正常了。麻烦的是不能预料这个灾难性故障何时发生。