请帮我指出代码错误的原因，谢谢

haoting

Private Sub 命令0_Click()
Dim rs As Recordset
Dim stsql As String stsql = "select * from aa"
rs.Open stsql, Application.CurrentProject.Connection ' 为什么这里会报错？？？？ Do While Not rs.EOF
Debug.Print rs("name")
Loop
rs.Close
Set rs = Nothing
End Sub

cg1

1、一般针对代码的提问必须给出环境、参数，比如：代码、错误行代码、错误号、错误描述、编程环境 2、Dim rs As Recordset '默认为dao.recordset ，而这个recordset是绝对不能用currentproject.connection来打开的 3、rs.Open stsql, Application.CurrentProject.Connection '即使你的RECORDSET用对了，这里后面还有一些参数也最好写全