Private Sub Actualizar_Click()

Dim StringSql as String

StringSql ="Update  MiTabla set "
StringSql = StringSql  & " (Campo1=' " & TextBox1  &" ' ,Campo2= ' " & TextBox2   & " ' , campo3= ' " &  TextBox3  & " ' )"

Currentdb.Execute StringSql

End Sub

Cualquiera duda o pregunta enviarme un E-Mail y luego estare publicando su respuesta.