Problema al cargar un combox con datos de otro combox

[sebastiansierraocm]

En un proyecto, necesito cargar un combox "cbokhour" del form "Class" con los datos del combo "idhour" del form "Hour".
Por ejemplo, si agrego una hora "3" en el form "Hour" de esta manera:

Código:

   Sub Nuevo()
        Dim CMD As New OleDb.OleDbCommand("Insert into hours values('" & cbohidhour.Text & "','" & txthour.Text & "')", cn)
        cn.Open()
        CMD.ExecuteNonQuery()
        cn.Close()
        mostrar()
        MsgBox("Done")

    End Sub

cuando ingrese al form "class" y me ubique en el combox "cbokhour" esa hora debe aparecer agregada. de esta forma:

Código:

   Sub cargar()
        Dim da As New OleDb.OleDbDataAdapter("Select *from Hours", cn)
        Dim ds As New DataSet
        da.Fill(ds, "Hours")
        cbokhour.DataSource = ds.Tables("Hours")
        cbokhour.DisplayMember = "IdHour"
End sub

el problema, es que la hora en efecto si es agregada, pero no en el momento que necesito, sino despues de cerrar la ejecución y depurar el proyecto nuevamente.
Pero yo necesito que "cbokhour" me muestre los datos que agrege en el form "hour" dentro de una misma ejecución.

¿Cómo puedo lograrlo?

[alan_69niupi]

yo uso este codigo para llenar mis combobox desde una tabla,
conec.conexion()
Dim cliente As OleDb.OleDbCommand
Dim dc As OleDb.OleDbDataReader
cbxNombreCliente.Items.Clear()
cliente = New OleDb.OleDbCommand("Select NOMBRE from CATCLIENTES ", conec.con)
dc = cliente.ExecuteReader()
While dc.Read()
Me.cbxNombreCliente.Items.Add(dc(0))
End While
dc.Close()
conec.con.Close()

puedes modificarlo y adaptarlo.
espero te sirva