Debes declarar los parametros en Acces para cada consulta, lo puedes hacer
durante el diseno de la consulta al poner el criterio entre corchetes, ej.
[Parametro], pero te recomiendo que lo declares en Query/Parameters
(Consulta/Parametros) del menu para que les definas el tipo.


Luego en VB, tienes que usar la consulta con QueryDef's y usar un codigo
como el que sigue:

'Definicion de la variable QRY
Global DS As Dynaset
Global QRY As QueryDef

CveBusca = InputBox$("Escribe la clave del cliente que busca...", Titulo)
' CveBusca es la variable donde se guarda lo que escribes
If CveBusca = "" Then
     Exit Sub
End If
'Codigo que ejecuta la consulta en Access
Set QRY = DB.OpenQueryDef("Busca Cliente")
'Parametro de entrada a la consulta y este parametro [Cve Busca]
'se da de alta en el Query de la BD como Txt
QRY![Cve Busca] = CveBusca
Set DS = QRY.CreateDynaset()
    .
    .
    .
    El resto de tu codigo.

El codigo inicial es solo para ejemplificar...

Saludos


-------------------------------------------------------
Jorge Luis Campos Medina
Leon, Gto. Mexico.
jlcampos@bajio.infonet.com.mx
-------------------------------------------------------


-----Original Message-----
From:    Rodolfo [SMTP:jefinf@smcoco1.solmelia.cma.net]
Sent:    Monday, June 22, 1998 4:25 PM
To:    vb-esp@ccc.uba.ar
Subject:    (VB-ESP) Sobre Consultas en Vb

Hola a todos:

Se me ha presentado un problema, necesito ejecutar una consulta con <<
parametros >> de Access desde VB.
Como hago para pasarle los parametros si es que se puede ?.

Gracias adelantadas

Rodolfo Victoria
jefinf@smcoco1.solmelia.cma.net
Cuba

>Hola a todos:
>
>Se me ha presentado un problema, necesito ejecutar una consulta con <<
parametros >> de Access desde VB.
>Como hago para pasarle los parametros si es que se puede ?.
>
>Gracias adelantadas
>
>Rodolfo Victoria
>jefinf@smcoco1.solmelia.cma.net
>Cuba


Hola, Rodolfo:

Lo que debes hacer es definir en VB una variable del tipo consulta (objeto
consulta) y definir cada uno de sus parametros. los parametros en su
conjunto son una coleccion del objeto consulta....
Bueno, mejor me dejo de rollos, y te lo cuento con un ejemplo:

- supongamos que tienes una consulta llamada "Datos", que tiene por
parametros dos, uno numerico denominado "Codigo" y otro de tipo fecha
denominado "fecha".... La definicion podria ser la siguiente:


Dim Ws as workspace
Dim Db as database
Dim qry as querydef ' Este es el objeto consulta
Dim rs as recordset ' Lo utilizas si la consulta es una SELECT

' Asignacion de variables:

Set Ws = DBEngine.workspaces(0)
Set Db = Ws.opendatabase (, , )
'asigna el objeto consulta
Set qry = Db.querydefs("Datos")

'Asigna los parametros
qry.parameters("Codigo")= 1
qry.parameters("Fecha")= date

' Si se trata de una consulta SELECT, abre el recordset con esos parametros:

Set rs = qry.openrecordset (dbopendynaset)

' Si es una consulta INSERT, DELETE o UPDATE, la ejecutas

qry.execute


Espero que te sirva. Saludos

PACO