第一、需要引用 Microsoft ActiveX Data Objects 2.0或以上版本的控件第二、你的写法好像有问题1、赋值我一般会用Cells(i, 9) = rs("SalesNum")2、或者每个单元格的赋值不用，直接用Range("G3").CopyFromRecordset rs 这样你的代码从Range("G3").Select到Wend这一部分都可以不要了。
首先你需要引用ADODB
