Ayuda

[SYakoS]

Bueno hay les posteo el codigo

If Validacion.State = 1 Then Validacion.Close
Validacion.Open cadena
cadena = "INSERT into MAESTROURBANO ("
cadena = cadena & " CONSECUTIVO, CONCEPTO, ESTADO, BENEFICIARIO, PAISORIGEN,"
cadena = cadena & " PAISDESTINO, DPTOORIGEN, DPTODESTINO, CIUDADORIGEN, CIUDADDESTINO, FACTURA,"
cadena = cadena & " PUNTO, RAZONSOCIALDESTINO, TELEFONODESTINO, DETALLE, DIRECCIONDESTINO, FECHAESTADO)"
cadena = cadena & " VALUES ( " & Validacion("GUIA_urbana") & ", 'UR', 0, 520520127,"
cadena = cadena & " 1, 1, 26, " & IIf(Len(Validacion("DPTO")) = 0, 0, Validacion("DPTO")) & ", 1, " & IIf(Len(Validacion("CIUDAD")) = 0, 0, Validacion("CIUDAD")) & ", "
cadena = cadena & " 0, 0, '" & Mid(Validacion("RAZONSOCIAL"), 1, 50) & "',"
cadena = cadena & "'" & Mid(Validacion("TELEFONO"), 1, 20) & "', 'ENTREGA FACTURA ',"
cadena = cadena & "'" & Mid(Validacion("DIRECCION"), 1, 150) & "', GETDATE())"

QMovimiento.ActiveConnection = cnurbano
QMovimiento.CommandText = cadena
QMovimiento.Execute


Y el error que me genera es en la linea que aparece en rojo espero me puedan ayudar porq no encuentro solucion a este problema