VBA to Update data in SQL Database

Sub UpdateDataInSQL()
    Dim conn As Object ' ADODB.Connection
    Dim cmd As Object ' ADODB.Command
    Dim connStr As String
    Dim strSQL As String
    
    ' Connection string for the SQL database
    connStr = "Provider=SQLOLEDB;Data Source=YourServerName;Initial Catalog=YourDatabaseName;User ID=YourUsername;Password=YourPassword;"
    
    ' Specify the data to be updated
    Dim oldValue As String
    Dim newValue As String
    oldValue = "Old Value" ' Replace with the old value you want to update
    newValue = "New Value" ' Replace with the new value you want to set
    
    ' Create a Connection object
    Set conn = CreateObject("ADODB.Connection")
    
    ' Open the Connection to the SQL database
    conn.Open connStr
    
    ' Create a Command object
    Set cmd = CreateObject("ADODB.Command")
    cmd.ActiveConnection = conn
    
    ' Create the SQL UPDATE statement
    strSQL = "UPDATE TableName SET FieldName = ? WHERE FieldName = ?;"
    ' Replace TableName and FieldName with the actual table and field names
    
    ' Set the SQL statement and parameters
    cmd.CommandText = strSQL
    cmd.Parameters.Append cmd.CreateParameter("NewValue", adVarChar, adParamInput, Len(newValue), newValue)
    cmd.Parameters.Append cmd.CreateParameter("OldValue", adVarChar, adParamInput, Len(oldValue), oldValue)
    
    ' Execute the SQL statement
    cmd.Execute
    
    ' Close the connection
    conn.Close
    
    ' Clean up the objects
    Set cmd = Nothing
    Set conn = Nothing
End Sub