1) Crea en tu base de datos una consulta, denominada "ConsultaConParametros"
como la siguiente:

PARAMETERS prmCodigo1 LONG, prmCodigo2 LONG;
SELECT Codigo, Descripcion FROM Articulos
WHERE Codigo BETWEEN prmCodigo1 AND prmCodigo2;

2) En tu aplicación de Visual Basic, prueba el siguiente código (mostrará el
código y la descripción de los artículos cuyo código esté entre 25 y 50):

Dim Cn As ADODB.Connection, Cm As ADODB.Command, Rs As ADODB.Recordset
Set Cn = New ADODB.Connection
Set Cm = New ADODB.Command
Set Rs = New ADODB.Recordset
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\TuArchivo.mdb;Persist Security Info=False"
With Cm
    .ActiveConnection = Cn
    .CommandText = "ConsultaConParametros"
    .Parameters.Append .CreateParameter("prmCodigo1", adInteger,
adParamInput, , 25)
    .Parameters.Append .CreateParameter("prmCodigo2", adInteger,
adParamInput, , 50)
    Set Rs = .Execute
End With
While Not Rs.EOF
    MsgBox Rs!Codigo & vbCrLf & Rs!Descripcion
    Rs.MoveNext
Wend
Rs.Close: Set Rs = Nothing
Cn.Close: Set Cn = Nothing


Rubén Vigón

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)