[0theghost0]

حصلت كود لكن لم يعمل

Private Sub cBoxCustName_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cBoxCustName.SelectedIndexChanged
Try
dbConnect()
cmd.CommandText = "Select * from Customers where Cust_Name = '" & cBoxCustName.Text & "'"
dr.Close()
dr = cmd.ExecuteReader

While dr.Read()
txtCust_ID.Text = dr("Cust_ID").ToString
txtCustCPR.Text = dr("Cust_CPR").ToString
txtCustContactNo.Text = dr("Cust_Contact_No").ToString
txtFlatNo.Text = dr("Cust_Address").ToString
End While
Catch ex As Exception
MessageBox.Show(ex.Message, "Error 123", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub