带参数的存储过程怎么不能显示到datagrid控件里~

编译没有报错
窗体里有一个datagrid的控件并已将其datasource属性添置到cnn(ado连接)
如下是load,CmdOk的代码 帮忙解决一下把 不胜感激
Dim cnn As ADODB.Connection
Dim mycommand As ADODB.Command
Dim CTerm_In As ADODB.Parameter
Dim rs As ADODB.RecordsetPrivate Sub Form_Load()
Me.Show
Text1.Text = 6
Set cnn = New ADODB.Connection '建立连接
Set rs = New ADODB.Recordset
cnn.Open "PROVIDER=MSDASQL;SRVR=...;Persist Security Info=False;User ID=sa;PWD=...;DB=...;DSN=..."
Set rs = cnn.Execute("SELECT * FROM Course WHERE CTerm='6'")
End Sub
Private Sub CmdOK_Click()
Set CTerm_In = New ADODB.Parameter
      Set mycommand = New ADODB.Command
      CTerm_In.Type = adVarChar  
      CTerm_In.Size = 50     
      CTerm_In.Direction = adParamInput
      CTerm_In.Value = Text1.Text      
      mycommand.Parameters.Append CTerm_In    
      mycommand.ActiveConnection = cnn
      mycommand.CommandText = "PRO_CInfo"
      mycommand.CommandType = adCmdStoredProc
      Set rs = New ADODB.Recordset
      Set rs = mycommand.Execute()
End Sub