Sentencia Insert

[luiscl]

Un poquito sí me está desesperando esto...a ver si le encontráis el error:

If lblcampoimagen.Text = "Imagen1" Then
seleccionstringGfotos = "UPDATE DAT_Alojamientos SET Imagen1= @imagen1 WHERE Identificador = @identificador"
seleccionGfotos.Parameters.Add(New OleDbParameter("@imagen1", OleDbType.VarChar, 100))
seleccionGfotos.Parameters("@imagen1").Value = Server.HtmlEncode(lblrutafoto.Text)
seleccionGfotos.Parameters.Add(New OleDbParameter("@identificador", OleDbType.VarChar, 100))
seleccionGfotos.Parameters("@identificador").Value = Server.HtmlEncode(lblidentificadorrecuperado.Text)
End If


seleccionGfotos = New OleDbCommand(seleccionstringGfotos, conexionGfotos)

conexionGfotos.Open()
seleccionGfotos.ExecuteNonQuery()
conexionGfotos.Close()