C1TrueDBGrid does not automatically updated

Dear The Expert,

I use C1TrueDBGrid (ComponentOne Product) Control for displaying my records, I don't know why the Grid does not automatically updated when a record being added, modified or deleted, my codes goes below:

in form load
' Call Load Dataset to fill Grid
Me.LoadDataSet()

I use click Button2 to try to modify a record:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim xxx As String = "Update MyTable01 Set Kode = '00001' Where Kode = '11'"
SqlConnection1.Open()
SqlDataAdapter1.SelectCommand.CommandText = xxx
SqlDataAdapter1.SelectCommand.CommandType = CommandType.Text
SqlDataAdapter1.SelectCommand.ExecuteNonQuery()
SqlConnection1.Close()
UpdateDataSet()
End Sub


Public Sub UpdateDataSet()
Dim objDataSetChanges As WindowsApplication1.DataSet1 = New WindowsApplication1.DataSet1()
'Stop any current edits.
Me.BindingContext(objmyds, "MyTable01").EndCurrentEdit()
'Get the changes that have been made to the main dataset.
objDataSetChanges = CType(objmyds.GetChanges, WindowsApplication1.DataSet1)
'Check to see if any changes have been made.
If (Not (objDataSetChanges) Is Nothing) Then
Try
'There are changes that need to be made, so attempt to update the datasource by
'calling the update method and passing the dataset and any parameters.
Me.UpdateDataSource(objDataSetChanges)
objmyds.Merge(objDataSetChanges)
objmyds.AcceptChanges()
Catch eUpdate As System.Exception
'Add your error handling code here.
Throw eUpdate
End Try
'Add your code to check the returned dataset for any errors that may have been
'pushed into the row object's error.
End If

End Sub


Public Sub UpdateDataSource(ByVal ChangedRows As WindowsApplication1.DataSet1)
Try
'The data source only needs to be updated if there are changes pending.
If (Not (ChangedRows) Is Nothing) Then
'Open the connection.
Me.SqlConnection1.Open()
'Attempt to update the data source.
Me.SqlDataAdapter1.Update(ChangedRows)
End If
Catch updateException As System.Exception
'Add your error handling code here.
Throw updateException
Finally
'Close the connection whether or not the exception was thrown.
Me.SqlConnection1.Close()
End Try

End Sub

Public Sub LoadDataSet()
'Create a new dataset to hold the records returned from the call to FillDataSet.
'A temporary dataset is used because filling the existing dataset would
'require the databindings to be rebound.
Dim objDataSetTemp As WindowsApplication1.DataSet1
objDataSetTemp = New WindowsApplication1.DataSet1()
Try
'Attempt to fill the temporary dataset.
Me.FillDataSet(objDataSetTemp)
Catch eFillDataSet As System.Exception
'Add your error handling code here.
Throw eFillDataSet
End Try
Try
'Empty the old records from the dataset.
objmyds.Clear()
'Merge the records into the main dataset.
objmyds.Merge(objDataSetTemp)
Catch eLoadMerge As System.Exception
'Add your error handling code here.
Throw eLoadMerge
End Try
End Sub

anybody can help me? .. many thanks in advance

Regards
Winanjaya