Dim adoCurCon As New ADODB.Connection
Set adoCurCon = CurrentProject.Connection '去掉这拆销棚斗颂句旅则
Dim AdoCurResTM As New.ADODB.Recordset
Set AdoCurResTM = adoCurCon.Execute(strSql) '去掉这句
AdoCurResTM.Open strSql,adoCurCon,2,2
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024