Select ข้อมูลจาก sql 2 อันใน private sub 1 อันสามารถทำได้ไหมครับ

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

        'ดึงข้อมูลจาก Work มาใช้
        Dim sql As String = "SELECT * FROM Work"
        Dim dtReader As MySql.Data.MySqlClient.MySqlDataReader
        objcmds = New MySql.Data.MySqlClient.MySqlCommand(sql, objconn)
        dtReader = objcmds.ExecuteReader()
        Do While dtReader.Read

            x1 = dtReader.Item("Id_Work").ToString
            x2 = dtReader.Item("Id_Employee").ToString
        Loop
        TextBox1.Text = x2

       

        'ดึงข้อมูลจาก sql มาใส่ใน combobox
        strsql = "SELECT * FROM Employee"
        objcmd = New MySql.Data.MySqlClient.MySqlCommand(strsql, objconn)
        With objcmd
            .Connection = objconn
            .CommandText = strsql
            .CommandType = CommandType.Text
        End With
        objda.SelectCommand = objcmd
        objda.Fill(acsds)
        dt = acsds.Tables(0)

        objda = Nothing
        objconn.Close()
        objconn = Nothing
        ComboBox1.DataSource = dt
        ComboBox1.DisplayMember = "Name_Employee"
        ComboBox1.ValueMember = "Id_Employee"




    End Sub