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

jejeje, pues sigue en las cavernas amigo, pero si yo fuera tu utilizaria el ado con los DataEnviroments del VB, es mucho mas sencillo, solo te crea las cadenas, y puedes utilizar el depurador TSQL que viene adjunto, sigue mi consejo y sufre menos, te lo recomiendo, ciao.

P.S.: La cadena SQL no le indicaste un nombre de parametro valido.