Visual Basic - Porfa.. Necesito k me ayuden

Tengo una consulta en Acces con el nombre de CONSULTA1 y la cual es la siguiente :
select * from tabla1 where cod=@var

Mi problema es k necesito enviar el parametro conrrespondiente a dicha consulta y luego mostrar los resultados en un DATAGRID ......

porfa ayudenmeeeeeeee... no seas malitos

Pero si ya lo tienes ? No te funciona ?

comando = "select * from tabla1 where cod = " & var

Si es numero va normal, si es texto va con ' '

Lo del DataGrid puedes enlazar un control ADO.. por ejemplo :

Ado.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=" & Principal.HostP & ";" _
& "DATABASE=BD;" _
& "UID=" & Principal.UsuarioP & ";" _
& "PWD=" & Principal.ClaveP & ";" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
Ado.RecordSource = "select * from materiales"
Ado.Refresh
Set DataGrid.DataSource = Ado
DataGrid.Refresh

Creo k no me entendiste....
yo tengo esa consulta en el mismo ACCES .... yo se k para llamar una consulta k se encuentra en acces solo le doy un select a la consulta...EJM: select * from consulta1
pero en esta consulta hay una variable:
LO K QUIERO ES... ENVIARLE ESA VARIABLE Y MOSTRAR LOS RESULTADOS EN UN DATAGRID..
MIRA A MI ME DIERON UN CODIGO LA CUAL ES ESTE:
-------------------------------------
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
With cmd
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb;Persist Security Info=False"
.CommandType = adCmdTable
.CommandText = "CONSULTA1" '//Nombre del Query
.Parameters(0) = Trim(text1.Text) '//Valor ejemplo del parámetro
Set rs = .Execute
End With
rs.close
------------------------------------
CON ESE CODIGO ENVIO EL PARAMETRO NECESARIO PERO AHORA EL PROBLEMA ES K NO PUEDO VISUALIZARLO EN UN DATAGRID (sale el error de k no me permite marcadores) Y CUANDO YO LO MUESTRO CON UN MSHFLEXGRID PS SOLO ME VISUALIZA EL PRIMER REGISTRO K ENCUENTRA.. Y NADA MAS..
-------------------------
ESTOS SON LOS CODIGOS CON LOS QUE LLENO LOS GRID: (Yo pongo este codigo antes de cerrar en RECORDSET)
Set MSHFLEXGRID.Recordset = rs
Set DATAGRID1.Recordset = rs