[mrnooo2000]

يمكنك اضافة هذا الكود 

كود :

       For Each rw As DataRow In DataSet1.Tables("Qoult").Rows
           ComboBox1.Items.Add(rw("name1"))
       Next

او هذا الكود 

كود :

             ComboBox1.DataSource = DataSet1.Tables("Qoult")
        ComboBox1.ValueMember = "Idcard"
        ComboBox1.DisplayMember = "name1"