[mh66]

ماشاء الله عنك اخ سعود
زادك الله علما

معليش اتحملني شوي

انا املئ الكومبو بهذه الطريقة

'***************************************************************
'تحميل كومبو الأقسام الموجودة
Me.Cursor = Cursors.WaitCursor
If Con.State <> ConnectionState.Open Then
GeneralConnection()
End If
If Con.State = ConnectionState.Open Then
Sql = Nothing
Sql = "SELECT na FROM NQsm"
Dim Cmd1 As New SqlCommand(Sql, Con)
Dim DR1 As SqlDataReader = Nothing
DR1 = Cmd1.ExecuteReader
Do While DR1.Read()
ComboBox1.Items.Add(DR1.Item("na"))
Application.DoEvents()
Loop
DR1.Close()
Cmd1.Cancel()
Con.Close()
Me.Cursor = Cursors.Default
End If
'***************************************************************

ماذا اضع بدل هذا السطر
ComboBox1.Items.Add(DR1.Item("na"))
اذا كان اسم شبكة الكرايد dg1
واريد ملئ العمود السادس

شكرا