关于VB2008里COMBOBOX与数据库动态更新的问题

我在窗体1装载里:
Public Class 基础数据窗体

    Private Sub 基础数据窗体_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“YM_BaoJiaDataSet1.产品系列表”中。您可以根据需要移动或移除它。
        ' Me.产品系列表TableAdapter.Fill(Me.YM_BaoJiaDataSet1.产品系列表)
        Me.产品系列刷新()

    End Sub

    Private Sub 添加产品系列_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加产品系列.Click
        Dim 添加产品系列信息 As New 添加产品系列窗体
        Me.AddOwnedForm(添加产品系列信息)
        添加产品系列信息.Show()
    End Sub
    Public Sub 产品系列刷新()
        Dim myconn As New SqlClient.SqlConnection
        Dim mycomm As New SqlClient.SqlCommand
        Dim myda As New SqlClient.SqlDataAdapter
        Dim ds As New DataSet
        myconn.ConnectionString = SQLconnstr()
        mycomm.Connection = myconn
        mycomm.CommandType = CommandType.Text
        mycomm.CommandText = "select 产品系列ID,产品系列名称 from 产品系列表"
        myda.SelectCommand = mycomm
        Try
            myconn.Open()
            myda.Fill(ds, "table")
            myconn.Close()
        Catch ex As Exception
            MsgBox(ex.ToString(), 16, "错误")
        End Try
        With 产品系列

            .ValueMember = "产品系列ID"
            .DisplayMember = "产品系列名称"
            .DataSource = ds.Tables("table")
        End With
    End Sub
End Class

在窗体2的确定按扭

Private Sub 确定按扭_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 确定按扭.Click
        Dim myconn As New SqlClient.SqlConnection
        Dim mycomm As New SqlClient.SqlCommand
        myconn.ConnectionString = SQLconnstr()
        mycomm.CommandType = CommandType.Text
        mycomm.CommandText = "insert into 产品系列表(产品系列名称) values('" & TextBox1.Text & "')"
        mycomm.Connection = myconn
        Try
            myconn.Open()
            mycomm.ExecuteNonQuery()
            myconn.Close()
            MsgBox("成功添加产品系列！", 48, "信息")
            Me.Close()
        Catch ex As Exception
            MsgBox(ex.ToString(), 16, "错误")
        End Try
        基础数据窗体.产品系列刷新()
        '基础数据窗体.产品系列表TableAdapter.Fill(基础数据窗体.YM_BaoJiaDataSet1.产品系列表)

    End Sub
我主要是想在添加数据后,窗体1的combobox自动更新数据,现在不更新.请高手指教 --------------------编程问答-------------------- 楼主代码写的挺个性啊，还带中文的，希望哪天vb.net 真的支持中文编程就好了
至于楼主的问题，我找了半天也没找到用到combobox的代码啊。。。楼主 highlight 一下吧 --------------------编程问答-------------------- 哈哈楼主太搞笑了哈哈哈 --------------------编程问答-------------------- 楼主，你的vb.net 真的支持中文编程？ --------------------编程问答-------------------- vb.net2008支持。 --------------------编程问答-------------------- 想用中文编程可以去学易语言啊，代码全是中文的。

补充：.NET技术 ,  VB.NET