Visual C++ .NET - Actualizar Registros en una base de datos

Try

    Dim conexion As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Omar_EM\Desktop\Jonathan Softwares\Hotel\Fechas.accdb")

    conexion.Open()

    ' Supongamos que deseas actualizar el campo "Nombre" en la tabla "Clientes" donde el ID sea 1

    Dim consulta As String = "UPDATE Clientes SET Nombre = 'NuevoNombre' WHERE ID = 1"

    Dim comando As New OleDbCommand(consulta, conexion)

    Dim filasActualizadas As Integer = comando.ExecuteNonQuery()

    ' Verificar si se actualizó al menos una fila

    If filasActualizadas > 0 Then

        MsgBox("Registros actualizados correctamente.", MsgBoxStyle.Information, "Éxito")

    Else

        MsgBox("No se encontraron registros para actualizar.", MsgBoxStyle.Information, "Información")

    End If

Catch ex As Exception

    MsgBox("Se ha producido un error al conectar a la Base de Datos: " & ex.Message, MsgBoxStyle.Critical, "Error")

End Try