Visual Basic.NET - Actualizar navegador de registros

Hola que tal...

...El problema que tengo es que la barra de navegación entre registros no se actualiza cuando agreso un registro nuevo.

Por ejemplo, si tengo 5 registros y agrego uno nuevo no se actualiza la barra de navegación a 6 registros, sino que se queda en 5 y cuando vuelvo a cargar el formulario entonces aparece actualizada, me gustaria que se actualizara al instante de agregar el nuevo registro.

El codigo que estoy utilizando es el siguiente:

Private Sub frmVendedores_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
daVendedores = New Data.SqlClient.SqlDataAdapter("SELECT * FROM Tbl_Vendedores", dbConexion.dbConexion)
dsControl = New Data.DataSet
dbConexion.dbConexion.Open()
daVendedores.Fill(dsControl, "Tbl_Vendedores")
dbConexion.dbConexion.Close()
ENLAZAR()
End Sub

Sub ENLAZAR()
bsVend = New BindingSource
bsVend.DataSource = dsControl
bsVend.DataMember = "Tbl_Vendedores"
Me.BindingNavigator1.BindingSource = bsVend
Me.txtCodigoVend.DataBindings.Add("Text", Me.bsVend, "Vend_C_Codigo")
Me.txtNombreVend.DataBindings.Add("Text", Me.bsVend, "Vend_C_Nombre")
Me.txtDireccion1Vend.DataBindings.Add("Text", Me.bsVend, "Vend_C_Direccion1")
Me.txtDireccion2Vend.DataBindings.Add("Text", Me.bsVend, "Vend_C_Direccion2")
Me.txtCedulaVend.DataBindings.Add("Text", Me.bsVend, "Vend_C_Cedula")
Me.txtTelefono1Vend.DataBindings.Add("Text", Me.bsVend, "Vend_C_Telefono1")
Me.txtTelefono2Vend.DataBindings.Add("Text", Me.bsVend, "Vend_C_Telefono2")
Me.txtEmailVend.DataBindings.Add("Text", Me.bsVend, "Vend_C_Email")
Me.txtComisionVend.DataBindings.Add("Text", Me.bsVend, "Vend_N_Comision")
Me.txtCuotaVend.DataBindings.Add("Text", Me.bsVend, "Vend_N_Cuota")
Me.chkInactivoVend.DataBindings.Add("Checked", Me.bsVend, "Vend_B_Inactivo")
End Sub

Private Sub tsbGrabar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsbGrabar.Click
Try
daVendedores = New Data.SqlClient.SqlDataAdapter("SELECT * FROM Tbl_Vendedores WHERE Vend_C_Codigo ='" & Me.txtCodigoVend.Text & "'", dbConexion.dbConexion)
dsControl = New Data.DataSet
dbConexion.dbConexion.Open()
daVendedores.Fill(dsControl, "Tbl_Vendedores")
dbConexion.dbConexion.Close()

If dsControl.Tables("Tbl_Vendedores").Rows.Count <> 0 Then
Dim cmdIns As New Data.SqlClient.SqlCommand
cmdIns.Parameters.Add("@Vend_C_Codigo", SqlDbType.NVarChar, 10).Value = Me.txtCodigoVend.Text
cmdIns.Parameters.Add("@Vend_C_Nombre", SqlDbType.NVarChar, 30).Value = Me.txtNombreVend.Text
cmdIns.Parameters.Add("@Vend_N_Comision", SqlDbType.Int).Value = Me.txtComisionVend.Text
cmdIns.Parameters.Add("@Vend_N_Cuota", SqlDbType.Int).Value = Me.txtCuotaVend.Text
cmdIns.Parameters.Add("@Vend_B_Inactivo", SqlDbType.Bit).Value = Me.chkInactivoVend.Checked
cmdIns.Parameters.Add("@Vend_C_Direccion1", SqlDbType.NVarChar, 40).Value = Me.txtDireccion1Vend.Text
cmdIns.Parameters.Add("@Vend_C_Direccion2", SqlDbType.NVarChar, 40).Value = Me.txtDireccion2Vend.Text
cmdIns.Parameters.Add("@Vend_C_Cedula", SqlDbType.NVarChar, 13).Value = Me.txtCedulaVend.Text
cmdIns.Parameters.Add("@Vend_C_Telefono1", SqlDbType.NVarChar, 13).Value = Me.txtTelefono1Vend.Text
cmdIns.Parameters.Add("@Vend_C_Telefono2", SqlDbType.NVarChar, 13).Value = Me.txtTelefono2Vend.Text
cmdIns.Parameters.Add("@Vend_C_Email", SqlDbType.NVarChar, 50).Value = Me.txtEmailVend.Text
cmdIns.Connection = dbConexion.dbConexion
cmdIns.CommandType = CommandType.StoredProcedure
cmdIns.CommandText = "SP_UPD_VENDEDORES"
dbConexion.dbConexion.Open()
cmdIns.ExecuteNonQuery()
dbConexion.dbConexion.Close()
Else
Dim cmdInsVend As New Data.SqlClient.SqlCommand
cmdInsVend.Parameters.Add("@Vend_C_Codigo", SqlDbType.NVarChar, 15).Value = txtCodigoVend.Text
cmdInsVend.Parameters.Add("@Vend_C_Nombre", SqlDbType.NVarChar, 30).Value = txtNombreVend.Text
cmdInsVend.Parameters.Add("@Vend_N_Comision", SqlDbType.SmallInt).Value = txtComisionVend.Text
cmdInsVend.Parameters.Add("@Vend_N_Cuota", SqlDbType.SmallInt).Value = txtCuotaVend.Text
cmdInsVend.Parameters.Add("@Vend_B_Inactivo", SqlDbType.Bit).Value = chkInactivoVend.Checked
cmdInsVend.Parameters.Add("@Vend_C_Direccion1", SqlDbType.NVarChar, 40).Value = txtDireccion1Vend.Text
cmdInsVend.Parameters.Add("@Vend_C_Direccion2", SqlDbType.NVarChar, 40).Value = txtDireccion2Vend.Text
cmdInsVend.Parameters.Add("@Vend_C_Cedula", SqlDbType.NVarChar, 13).Value = txtCedulaVend.Text
cmdInsVend.Parameters.Add("@Vend_C_Telefono1", SqlDbType.NVarChar, 13).Value = txtTelefono1Vend.Text
cmdInsVend.Parameters.Add("@Vend_C_Telefono2", SqlDbType.NVarChar, 13).Value = txtTelefono2Vend.Text
cmdInsVend.Parameters.Add("@Vend_C_Email", SqlDbType.NVarChar, 50).Value = txtEmailVend.Text
cmdInsVend.Connection = dbConexion.dbConexion
cmdInsVend.CommandType = CommandType.StoredProcedure
cmdInsVend.CommandText = "SP_INS_VENDEDORES"
dbConexion.dbConexion.Open()
cmdInsVend.ExecuteNonQuery()
dbConexion.dbConexion.Close()
LIMPIAR()
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error")
dbConexion.dbConexion.Close()
End Try

Lo que debes hacer es vaciar el dataset

midataset(tabla).clear

y luego lo vuelves a cargar para que actualize los nuevos datos