家用机器人什么牌子好:连接无法用于执行此操作。上下文中他可能已被关闭或无效

Private Conn As ADODB.Connection
Private Rs As ADODB.Recordset
Private Sub Form_Load()
Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
Conn.ConnectionString = "DSN=nihao;UID=sa;PWD=sa;Database=Stutext"
Conn.Open
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set Rs = New ADODB.Recordset
Set Rs.ActiveConnection = Conn
Rs.LockType = adLockOptimistic
Rs.CursorType = adOpenKeyset
Rs.Open "select * from student"
Rs.MoveLast
Call FillText(Rs)
RecNum = Rs.RecordCount
Rs.Close
End Sub
Private Sub CmdFirst_Click()
Set Rs.ActiveConnection = Conn
''''''''''''''''''''''''''''''''''''''''''''''''''''
“问题所在 要是加入Set Conn = New ADODB.Connection
Conn.ConnectionString = "DSN=nihao;UID=sa;PWD=sa;Database=Stutext"
Conn.Open
就运行正常，怎样才能不加呢？？
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Rs.CursorType = adOpenForwardOnly
Rs.Open "select * from student"
Rs.MoveFirst
Call FillText(Rs)
Rs.Close
End Sub