“已經有一個開放的DataReader ......”重用或配置數據庫連接？請幫助....當我從Mysql表中選擇數據時，它顯示“已經有一個與此Connection相關的開放DataReader必須先關閉.vb.net” Private Sub cmbJobCategoryVisa_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbJobCategoryVisa.SelectedIndexChanged    ''"     Dim MyCommand As New MySqlCommand("SELECT jobcategorycode FROM jobcategory WHERE jobcategory='" & Me.cmbJobCategoryVisa.SelectedItem & "'", MyConnection)     Dim MyReader As MySqlDataReader = MyCommand.ExecuteReader    While MyReader.Read        If MyReader.HasRows = True Then             Me.txtJobCategoryCodeVisa.Text = MyReader("jobcategorycode")         End If     End While     MyReader.Close()     MyCommand.Dispose()End Sub'''在下面的代碼執行時，'，顯示成像錯誤    Private Sub txtEmpNo_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtEmpNo.Validating    Dim MyCommand5 As New MySqlCommand("SELECT * FROM employeesmaster WHERE empno='" & Me.txtEmpNo.Text & "'", MyConnection)     Dim MyDataReader5 As MySqlDataReader = MyCommand5.ExecuteReader    If MyDataReader5.HasRows = True Then         While MyDataReader5.Read            Me.txtEmpName.Text = MyDataReader5("name")             Me.cmbNationality.Text = MyDataReader5("nationality")             Me.cmbJobCategoryVisa.Text = MyDataReader5("jobcategoryvisa")             If Not IsDBNull(MyDataReader5("image")) Then                 Dim ImageData As Byte() = DirectCast(MyDataReader5("image"), Byte())                 Dim MemoryStream As New IO.MemoryStream(ImageData)                 Me.pbxEmpImage.Image = Image.FromStream(MemoryStream)             Else                 Me.pbxEmpImage.Image = Nothing             End If         End While     Else     End If     MyDataReader5.Close()     MyCommand5.Dispose()End Sub