Actualizar una base de datos con el commando Command

Para realizar un Update en una BD: Com.ActiveConnection = Cn Com.CommandText = "UPDATE TABLA SET CAMPO='" & Me.text1.Text & "' WHERE CAMPOID=" & Codigo) Com.Execute