Thank you for your quick reply:
Code:
                Dim dt As New DataTable
                dt = GetPatientList()

                cbEPCDPatient.DataSource = dt
                cbEPCDPatient.DisplayMember = "Patient"
                cbEPCDPatient.ValueMember = "ID"

                'Dim r As DataRow = dt.NewRow()
                'r(0) = "Select Patient"

                'dt.Rows.InsertAt(r, 0)

                cbEPCDPatient.Items.Add(New DictionaryEntry("Select Patient", 0))
After added the code, the combobox shows no item at all, how do I fix it?