UPDATE EN SQL SERVER

sSelect = "UPDATE Mesas INNER JOIN CAJA ON Mesas.Cliente =
CAJA.cliente SET CAJA.Fecha = [MESAS].[FECHA];"

HOLA a todos de antemano muchas gracias por compartir sus conocimientos


tengo una instruccion que deseo me modifique un campo de mi tabla es la
siguiente y me sale error alquien me podria orientar? gracias

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection


Dim sSelect As String

sSelect = "UPDATE Mesas INNER JOIN CAJA ON Mesas.Cliente =
CAJA.cliente SET CAJA.Fecha = [MESAS].[FECHA];"

cn.Open "Provider=SQLNCLI; " & _
"Initial CatalogÊJASQL; " & _
"Data Source2.168.1.20\SQLEXPRESS; " & _
"integrated security=SSPI; persist security info=True;"


Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset


rs.Open sSelect, cn, adOpenStatic


rs.Close
cn.Close

HOLA a todos de antemano muchas gracias por compartir sus conocimientos


tengo una instruccion que deseo me modifique un campo de mi tabla es la
siguiente y me sale error alquien me podria orientar? gracias

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection


Dim sSelect As String

sSelect = "UPDATE Mesas INNER JOIN CAJA ON Mesas.Cliente > CAJA.cliente SET CAJA.Fecha = [MESAS].[FECHA];"

cn.Open "Provider=SQLNCLI; " & _
"Initial CatalogÊJASQL; " & _
"Data Source2.168.1.20\SQLEXPRESS; " & _
"integrated security=SSPI; persist security info=True;"


Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset


rs.Open sSelect, cn, adOpenStatic


rs.Close
cn.Close