Veamos si esto te sirve, asumo que trabajas con base da datos nativa de VB.
Asumo que esta abierto el espacio de trabajo y la base de datos
Sub ParameterX()
Dim qdfInforme As QueryDef
Set dbsmia = OpenDatabase("MiBase.mdb")
' Crea el objeto QueryDef temporal con dos parámetros.
Set qdfInforme = Mibase.CreateQueryDef("", _
"PARAMETERS FechaInicio DateTime, FechaFin DateTime; " & _
"SELECT IdEmpleado, COUNT(IdPedido) AS NúmPedidos " & _
"FROM Pedidos WHERE Fecha de envío BETWEEN " & _
"[FechaInicio] AND [FechaFin] GROUP BY IdEmpleado " & _
"ORDER BY IdEmpleado")
Set prmInicio = qdfInforme.Parameters!FechaInicio
Set prmFin = qdfInforme.Parameters!FechaFin
Mibase.Close
End Sub
