Update o Select con varios valores de entrada
mira esta consulta de actualizacion (modificar) a ver si te sirve
Rem AHORA GRABA LA NUEVA FICHA CON LOS DATOS DEL FORMULARIO
Rem MODIFICAR ------------------------------------------------------------------------
consulta = " UPDATE [T-VISITAS-CON1] SET "
consulta = consulta & " [T-VISITAS-CON1].[FECHA-CON1] = # " & Format([WFECHA-CON1], "mm/dd/yyyy") & "# , "
consulta = consulta & " [T-VISITAS-CON1].[EXPEDIENTE-CON1] = " & Str$([WEXPEDIENTE-CON1]) & " , "
consulta = consulta & " [T-VISITAS-CON1].[USUARIO-CON1] = '" & [WUSUARIO-CON1] & "', "
consulta = consulta & " [T-VISITAS-CON1].[TRABAJADOR-CON1] = " & Str$([WTRABAJADOR-CON1]) & " , "
consulta = consulta & " [T-VISITAS-CON1].[NOMBRETRA-CON1] ='" & [WNOMBRETRA-CON1] & "', "
' consulta = consulta & " [T-VISITAS-CON1].[VALORACION-GENERAL-CON1] = " & Str$([WVALORACION-GENERAL-CON1]) & " , "
' consulta = consulta & " [T-VISITAS-CON1].[OTROS-DATOS-CON1] = ' " & [WOTROS-DATOS-CON1] & "', "
' consulta = consulta & " [T-VISITAS-CON1].[DETALLE-CON1] = ' " & [WDETALLE-CON1] & "', "
' consulta = consulta & " [T-VISITAS-CON1].[OTROS-CON1-2] = ' " & [WOTROS-CON1-2] & "', "
consulta = consulta & " [T-VISITAS-CON1].[HORAVISITA-CON1] ='" & [WHORAVISITA-CON1] & "', "
' consulta = consulta & " [T-VISITAS-CON1].[VISITAREALI-CON1] =' " & [WVISITAREALI-CON1] & "', "
consulta = consulta & " [T-VISITAS-CON1].[OBSERVACIONES-CON1] = '" & [WOBSERVACIONES-CON1] & "', "
consulta = consulta & " [T-VISITAS-CON1].ORDEN = " & Str$(WORDEN) & " , "
consulta = consulta & " [T-VISITAS-CON1].[INCILLA-CON1] = '" & [WINCILLA-CON1] & "', "
consulta = consulta & " [T-VISITAS-CON1].NVP = " & Str$(WNVP) & " , "
consulta = consulta & " [T-VISITAS-CON1].[CREA/MOD/BOR] ='" & "M" & "', "
consulta = consulta & " [T-VISITAS-CON1].[FECHA-MOD] = #" & Format(Now(), "mm/dd/yyyy") & "# , "
consulta = consulta & " [T-VISITAS-CON1].NUMTORIZADO = " & Str$(NUM) & " , "
consulta = consulta & " [T-VISITAS-CON1].NOMAUTORIZADO ='" & NOM & "' "
consulta = consulta & " WHERE ((([T-VISITAS-CON1].[ID-CON1])= " & Str(Forms![F-PROGRAMAR-VISITAS]![Subformulario T-VISITAS-CON1].Form.[ID-CON1]) & " )) "
Set RS = CreateObject("ADODB.RecordSet")
Set CON = Application.CurrentProject.Connection
RS.Open consulta, CON, adOpenDynamic, adLockOptimistic