Visual Basic - Error de sintaxis Base de datos, Visual "Cliente", Acces "Base de datos"

Buenos dias, cree una base detos basandome en un video de youtube, a la cual le realice varias modificaciones una de ellas es insertar VBA.Time a la vez de un VBA.Date, poseo un error de sintaxis, ya que no encuento la manera de unir la linea de codigo "', C.FECHA = #" & Format(Fecha, "mm/dd/yyyy") & "# WHERE (C.Id = " & id & "); con la linea de codigo "', C.HORA = #" & Format(Hora, "hh:mm:ss" "# WHERE (C.Id = " & id & ");"

Estaria demasiado agradecido si alguien me pudiera ayudar, el error unicamente lo presento en el boton de editar, en el boton de eliminar o crear no presento ningun tipo de error.
___________________________________________________________________________________________
Este es el Id que tengo creado para la union de la Matriz de acces. el cual no me ha presentado errores.
Dim señal As Boolean
Dim id As Long
Dim DocumentoAux As String
__________________________________________________________________________________________

Private Sub cmdEditar_Click()

If Not señal Then
MsgBox " Para editar Busque un Documento. "
Else
With Visitantes

If .txtNombre.Text = "" Then
MsgBox "Ingese un nombre"
.txtNombre.SetFocus
Exit Sub
End If

If .lstTipoDocumento.ListIndex = -1 Then
MsgBox "Ingese un Tipo de Documento"
.lstTipoDocumento.SetFocus
Exit Sub
End If

If .txtNumDoc.Text = "" Then
MsgBox "Ingese un Numero de documento"
.txtNumDoc.SetFocus
Exit Sub
End If

If .txtTelef.Text = "" Then
MsgBox "Ingese un Numero de Telefono"
.txtTelef.SetFocus
Exit Sub
End If

If .txtCelu.Text = "" Then
MsgBox "Ingese un Numero de celular"
.txtCelu.SetFocus
Exit Sub
End If

If .lstTipodepersona.ListIndex = -1 Then
MsgBox "Ingese un Tipo de Documento"
.lstTipodepersona.SetFocus
Exit Sub
End If

If .txtEmpresa.Text = "" Then
MsgBox "Ingese nombre de Empresa"
.txtEmpresa.SetFocus
Exit Sub
End If

If .txtcorreo.Text = "" Then
MsgBox "Ingese una direccion de Correo"
.txtcorreo.SetFocus
Exit Sub
End If

If .lstVisita.ListIndex = -1 Then
MsgBox "Ingese una razon de visita"
.lstVisita.SetFocus
Exit Sub
End If
End With

Dim NumerodeDocumento As String
Dim NombreCompleto As String
Dim TipodeDocumento As String
Dim Telefono As String
Dim Celular As String
Dim Tipodepersona As String
Dim Empresa As String
Dim CorreoElectronico As String
Dim Razondevisita As String
Dim Fecha As Date
Dim Hora As Date

With Visitantes
NumerodeDocumento = .txtNumDoc
NombreCompleto = .txtNombre
TipodeDocumento = .lstTipoDocumento
Telefono = .txtTelef
Celular = .txtCelu
Tipodepersona = .lstTipodepersona
Empresa = .txtEmpresa
CorreoElectronico = .txtcorreo
Razondevisita = .lstVisita
End With
Fecha = VBA.Date
Hora = VBA.Time

Dim sqlEditar As String
sqlEditar = "UPDATE VISITANTES AS C SET C.NUMERODEDOCUMENTO = '" & NumerodeDocumento & _
"', C.NOMBRECOMPLETO = '" & NombreCompleto & "', C.TIPODEDOCUMENTO = '" & TipodeDocumento & _
"', C.TELEFONO = '" & Telefono & "', C.CELULAR = '" & Celular & "', C.TIPODEPERSONA = '" & Tipodepersona & _
"', C.EMPRESA = '" & Empresa & "', C.CORREOELECTRONICO = '" & CorreoElectronico & "', C.RAZONDEVISITA = '" & Razondevisita & _
"', C.FECHA = #" & Format(Fecha, "mm/dd/yyyy") & "# WHERE (C.Id = " & id & "); & _
"', C.HORA = #" & Format(Hora, "hh:mm:ss" "# WHERE (C.Id = " & id & ");"

• Visitantes.rar(3,7 KB)

He puesto el código de esta forma para verlo mejor:


En el primer WHERE falta cerrar las comillas después del paréntesis cerrar y el punto y coma.
En el segundo FORMAT falta cerrar el paréntesis y un &
No recuerdo muy bien la sintaxis de SQL pero 2 WHERE en una misma línea lo veo raro.

Saludos.
\\//_

Muchas gracias por tus aclaraciones cai en cuenta de varios errores.

Tienes mucha razon dos WHERE en SQL no va, ya me da un error diferente. La principal razon del error es que necesito registrar fecha y hora no importa si es en una misma columna, pero no encuento una forma de hacerlo con VBA.Date, no se si habra una manera de poder hacerlo y dejar todo en un solo formato de esta manera.



Sin necesidad de usar otro WHERE como el de C.HORA

Ya que al usar esa linea de codigo con VBA.Date la hora me queda 00:00:00 y no toma la hora del programa.

Ya di con la solucion Muchas gracias por tu ayuda, El problema era que al usar solo toma la fecha, indagando en esta pagina web https://www.microsoft-visualstudio.com/2011/09/funciones-de-fecha-en-visual-basic.html, encontre que el codigo correcto para fecha y hora es , Nuevamente muchas gracias por tu respuesta.