VB2005中DataGridView为什么显示不了？该怎么处理

VB2005中DataGridView为什么显示不了？
Private   Sub   Form1_Load(ByVal   eventSender   As   System.Object,   ByVal   eventArgs   As   System.EventArgs)   Handles   MyBase.Load
                Dim   cnn   As   ADODB.Connection
                Dim   Cmd   As   ADODB.Command
                Dim   rs   As   ADODB.Recordset
cnn   =   New   ADODB.Connection
                cnn.ConnectionString   =   "driver=SQL   Server;server=;uid=sa;pwd=;database=oa_cs "
                cnn.Open()
Cmd   =   New   ADODB.Command
Cmd.let_ActiveConnection(cnn)
Cmd.CommandType   =   ADODB.CommandTypeEnum.adCmdStoredProc
                Cmd.CommandText   =   "user_list1 "
Cmd.Parameters(1).Value   =   "aa "
                rs   =   Cmd.Execute
                DataGridView1.DataSource   =   rs
End   Sub


------解决方案--------------------
用DataSet

Dim Cn As New SqlConnection
Dim CnStr As String = " "
CnStr = "Server=.;database=test;uid=test;pwd=test "
CnStr = "Server=192.168.1.31;database=master;uid=sa;pwd=yl888 "
Cn.ConnectionString = CnStr
Cn.Open()
MessageBox.Show( "OK ")

Dim Sql0 As String = "Select * from ry2005 "
Dim DA As New SqlDataAdapter
Dim Cmd As SqlCommand = Cn.CreateCommand
Cmd.CommandText = Sql0
DA.SelectCommand = Cmd
DA.Fill(Ds, "p ")
DataGridView1.DataSource = Ds.Tables( "p ")