SoloCodigo

oK, Entiendo, muchas gracias por el tip.
  Saldos

 muchisímas gracias atodos lo que contestaron y aclararon mi duda. he trabajado con ado y data pero no sebia ha largo plazo cual de las dos necesitaba mas atenciaon io reparacion
   gracias

gracias

hola espero que te sirva esta pequeña explicación

Private Sub mnuguardar_Click()
On Error GoTo hayerror ' se declara el el nombre del error en este caso "hayerror"
Dim buscando, W, Mensaje As String

W = Text1
buscando = "select * from EDITORIAL where IDEDITORIAL = '" & W & "' "
Set Tablaedit = BaseGlobal.OpenRecordset(buscando, 2) 'busca en la tabla de la base de datos, si no encuentra hace una nueva insercion.
If Tablaedit.EOF Then
    Tablaedit.AddNew
    Tablaedit.Fields!IDEDITORIAL = Text1.Text
    Tablaedit.Fields!NOMBRE = Text2.Text
    Tablaedit.Fields!DIRECCION = Text3.Text
    Tablaedit.Fields!TELEFONO = Text4.Text
    Tablaedit.Update
    BaseGlobal.Recordsets.Refresh
End If

' si el procedimiento es correcto, introduce el valor que tiene cada caja de texto. pero imagina que por alguna razón se introdujo un valor NULO en el IDEDITORIAL, lo que provocará que el sistema te saque de tu programa y te pregunte si lo quieres depurar, cuando se introdujo el on error goto cerifica que se este llevando correctamente el llenado de la tabla.
Exit Sub ' si llega a este punto no invocaras al error pero si hay error, mandará el error con su descrpció, ejemplo muy comun "el valor de la celda es demaciado grande.
hayerror:
MsgBox Err.Description, 16, "Error de Llenado de Celda"
End Sub

 
colocalo al principio del tu código dentro del boto o cualquier otro objeto que va a realizar la operacion, y al final de la instruccion del mismo boton, pruebalo, es muy importante este error puesto que te indica que es lo que esta mal dentro de un llenado de tu formulario.

ya entendí, gracias la consulta la logre de este modo desde el comando de la conexion del dataenvironment

select * from produccion where situacion=? and fecha>=? and fecha<=?
 desde las "intrucciones de SQL"

"emple" es el nombre que le puse al DATAENVIRONMENT
"RevTer" se llama mi conexion "revizar terminados"
"RevTer_Grouping" donde los agrupe para que me mostrara en el reporte

y dentro del del botón coloque lo siguiente  

Private Sub Terminados_Click()
Dim M, N As String
 
M = InputBox("DESDE LA FECHA:", "Introduzca la Fecha", "Día/Mes/Año")
If (Len(M) > 8) Or (Len(M) <= 6) Or Len(M) = 7 Or M = "" Then
MsgBox "       No es Una fecha valida" & Chr(13) & "El Formato es (Dia/Mes/Año)", 0 + 64
Exit Sub
End If

N = InputBox("HASTA LA FECHA DE:", "Introduzca la Fecha", DateTime.Date)
If (Len(N) > 8) Or (Len(N) <= 6) Or Len(N) = 7 Or N = "" Then
MsgBox "       No es Una fecha valida" & Chr(13) & "El Formato es (Dia/Mes/Año)", 0 + 64
Exit Sub
End If

 
emple.RevTer_Grouping "ENTREGADO", M, N
REPENTREGADO.Refresh
REPENTREGADO.Show
End Sub


Gracias por dedicale un tiempo, ahora solo me gustaria que le hicieras unas observaciones y si pudieras me digeras en que puedo mejorar el aspecto de la programacion. Muchas gracias

mi duda es como hago para que cuando quiera hacer un reporte de una determinda fecha, por ejemple  "15/diciembre/2004" al "25/12/2004" las introduzca y estas me generren un reporte entre estas dos fechas.

Sé que con los filtros se puede hacer una consulta de tipo numérico, pero con un solo filtro. lo que no se es como meter esta consulta en un solo filtro ya que utilizo dos opciones en un solo filtro, pero no me acepta las opciones AND OR >= ó <=

hice esta consulta y me sale de maravilla. pero lo que quiero es que el usuario cuando introduzca estas dos fechas le genere solo los movimientos que se hicieron entre estos rangos-

Dim Inempleado As Long
Inempleado = (Val(InputBox("Esciba la Clave del Empleado", "Clave del Empledo")))
If Inempleado = 0 Then
    MsgBox ("No Se Escribío Una Clave Valida")
    Exit Sub
Else
    emple.Todo_Grouping
    emple.rsTodo_Grouping.Requery
    If emple.rsTodo_Grouping.EOF = True Then
        MsgBox ("El Empleado No Existe")
        emple.rsTodo_Grouping.Close
        Exit Sub
    End If
    REPTRABAJOS.Refresh
    REPTRABAJOS.Show
End If

 
Si Alguien me podria ayudar, de antemano Mil Gracias

 gracias a todos a quellos que contestaron este mensaje y la verdad me fue de gran utilidad para el trabajo asic omo el de alimentar mi conocimiento  ¡¡¡GRACIA!!!