你是定义了,但是可能你并没有赋值你可以把他们分别赋值成1看看或者你可以这么写第18行rsObj.Open strSQL, conn, 1,1
检查下所在文件目录的权限
加上 On Error Resume Next'容错声明 试试
这么点代码，没有谁看得出来什么问题
