关于ADO查询

' 下面是我得代码
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "DSN=STD_MIS;uid=ADMIN;pwd=ADMIN;database=pubs"
rs.CursorLocation = adUseClient
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
单击一个按钮，执行下面的语句
rs.Open "SELECT * FROM STD_INFO", conn, adOpenStatic, adLockReadOnly, adCmdUnknown
实际情况是，单击第一次执行正常，第二次就出现错误，请问什么原因？
如何解决？