update product set description = rtrim(cast(description as varchar(8000)))

Dim rs
 
    Set rs = CreateObject("ADODB.Recordset")
    With rs
        Set .ActiveConnection = Application.GetNewConnection
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
 
        .Open "select * from product where description is not null"
 
        While Not .EOF
            .Fields("description").Value = Trim(.Fields("description").Value)
            .Update
            .MoveNext
        Wend
        .Close
    End With
    Set rs = Nothing