how to update OLE?

[Bram2008]

I add OLE in my form. This OLE is linked with excell file.
I modify excell file data from vb program, and i hope this OLE can change by itself according to my modification.
But it can't works? Why?
Pliz help me.
THX.
This my code :
Private Sub Command5_Click( )
Dim obj1 As Object
Set obj1 = CreateObject("e xcel.applicatio n")
obj1.workbooks. Open ("C:\Documen ts and Settings\Byon 2007\My Documents\1.xls ")
With obj1.workbooks( 1).worksheets(1 )

.cells(2, 1) = Label15(0).Capt ion
.cells(3, 1) = Label15(1).Capt ion
.cells(4, 1) = Label15(2).Capt ion
.cells(5, 1) = Label15(3).Capt ion
.cells(6, 1) = Label15(4).Capt ion

.cells(2, 2) = Label27(0).Capt ion
.cells(3, 2) = Label27(1).Capt ion
.cells(4, 2) = Label27(2).Capt ion
.cells(5, 2) = Label27(3).Capt ion
.cells(6, 2) = Label27(4).Capt ion

.cells(2, 3) = Text12(0).Text
.cells(3, 3) = Text12(1).Text
.cells(4, 3) = Text12(2).Text
.cells(5, 3) = Text12(3).Text
.cells(6, 3) = Text12(4).Text

.cells(2, 4) = Label24(0).Capt ion
.cells(3, 4) = Label24(1).Capt ion
.cells(4, 4) = Label24(2).Capt ion
.cells(5, 4) = Label24(3).Capt ion
.cells(6, 4) = Label24(4).Capt ion

.cells(2, 5) = Label23(0).Capt ion
.cells(3, 5) = Label23(1).Capt ion
.cells(4, 5) = Label23(2).Capt ion
.cells(5, 5) = Label23(3).Capt ion
.cells(6, 5) = Label23(4).Capt ion

.cells(2, 6) = Label17(0).Capt ion
.cells(3, 6) = Label17(1).Capt ion
.cells(4, 6) = Label17(2).Capt ion
.cells(5, 6) = Label17(3).Capt ion
.cells(6, 6) = Label17(4).Capt ion

End With

OLE1.Update
End Sub