Visual Basic - Consulta parametrizada con ado command y datagrid

Tengo un pequeño programa que usa una consulta parametrizada con el objeto command. El problema es que el datagrid no presenta los resultados. ( he probado con textboxs y ahi si los presenta).No se por que será. Si pueden decirme por favor aqui mando el programa:
Gracias
(El programa tiene un datagrid, un textbox y un commandbutton).

Dim cnn As Connection
_______________________________________________________________________-

Private Sub Command1_Click()
Dim strSQL As String
Dim cmd As New Command
Dim rs As Recordset

strSQL = "SELECT * FROM PUBLISHERS WHERE STATE= ?"

cmd.CommandText = strSQL
cmd.Parameters.Append cmd.CreateParameter("State", adVarChar, adParamInput, 20, Text1.Text)
cmd.ActiveConnection = cnn

Set rs = cmd.Execute

DataGrid1.DataMember = "cmd"
Set DataGrid1.DataSource = rs
End Sub
__________________________________________________________________
Private Sub Form_Load()
Set cnn = New Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:\Archivos de Programa\Microsoft Visual Studio\VB98\Biblio.mdb;Persist Security Info=False"
.Open
End With
Text1.Text = "CA"
End Sub