转送值的问题

Question

Public Class payroll

 

    Dim server, db, user, pass As String

    Dim cmd As New Odbc.OdbcCommand

    Dim adapter As New Odbc.OdbcDataAdapter(cmd)

 

 

    Private Sub payroll_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        setting.getsetup()  '获取setting的getsetup值

    End Sub

 

Private Sub ComboBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.Click

        Dim MyConnection As New Odbc.OdbcConnection("Driver={MySQL ODBC 3.51 Driver};Server=" & setting.server & ";Database=" &setting.db & "; User=" & setting.user & ";Password=" & setting.pass & ";Port=3306;Option=3;")

        MsgBox(MyConnection.ConnectionString) ‘第一次可以获取值

        cmd.CommandText = "select * from login"

        cmd.Connection = MyConnection

 

        MyConnection.Open()

        Dim tbl As New DataTable

        Dim payroll As New DataSet

        adapter.Fill(payroll)

        tbl = payroll.Tables(0)

 

        ComboBox1.Items.Clear()

        For Each drow As DataRow In tbl.Rows

            ComboBox1.Items.Add(drow(2).ToString)

        Next

        MyConnection.Close()

 

    End Sub

 

    Private Sub payroll_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.VisibleChanged

        setting.getsetup()

        setting.getconnection()

        Dim MyConnection As New Odbc.OdbcConnection("Driver={MySQL ODBC 3.51 Driver};Server=" & setting.server & ";Database=" &setting.db & "; User=" & setting.user & ";Password=" & setting.pass & ";Port=3306;Option=3;")

        MsgBox(MyConnection.ConnectionString)

    End Sub

End Class

 

以上的代码如果在payroll form执行是没有问题，但当跳转至其他的form(payroll form就会隐藏）当从其他的form跳转回payroll form时（payroll form 会显示）当点击combobox1时,就无法获取值，我有试过在payroll_VisibleChanged获取值，是可以获取。但就是无法传到combobox1.click的值？该怎样解决？