ขอสอบถามการดึง ID จากเทเบิลหนึ่ง มาเเสดงใน TextBox เพือบันทึกข้อมูลลงอีกเทเบิลหนึ่ง ครับ เขาทำยังไงครับ

        Dim dtAdapter As MySqlDataAdapter
        Dim dt As New DataTable
        strSQL = "SELECT * FROM account_num WHERE Pass_income = '" & "Pass_income" & "' "
        dtAdapter = New MySqlDataAdapter(strSQL, objConn)
        dtAdapter.Fill(dt)

        If dt.Rows.Count > 0 Then
            Me.ID.Text = dt.Rows(0)("Pass_income")
        End If