Problemas con el \ en VB y MSSQL

[oblacionx]

Saben tengo una pantalla de mantenimiento, donde guardo la ruta de un archivo de un archivo en un dato tipo varchar(500) cuando quiero actualizar hago click en guardar pero me sale un mesaje de error dicendome "error cerca de \" aqui les mando el codigo del boton, les agradecere su ayuda:
Private Sub cmdGrabar_Click()
Dim SQL As String
Dim Rows As Long
Dim strID As String

strID = txtCodPro.Text
SQL = "UPDATE Producto " & _
"SET " & _
"DesPro='" & txtDescripcion.Text & "'," & _
"ImaPro='" & txtImagen.Text & "'" & _
" WHERE CodCli='" & strID & "';" & _
"COMMIT"

cn.Execute SQL, Rows
If Rows = 1 Then
MsgBox "Actualizaciones Registradas.", , "Mensaje"
Else
MsgBox "Error en las actualizaciones.", , "Mensaje"
End If
End Sub