رسالة خطا

السلام عليكم :

لو سمحتم انا اريد ال dropdownlist ان تعبئ من الداتا بيس وقت التشغيل وعملت بروسيجر وreader

المسج التالي:

index was outside the bounds of the array

الكود هو

Try

Dim rdrCustomers As SqlClient.SqlDataReader

If cnn.State <> ConnectionState.Open Then

cnn.Open()

End If

rdrCustomers = Me.ncmd.ExecuteReader(CommandBehavior.CloseConnection)

Do While rdrCustomers.Read()

Me.dropdownlist1.Items.Add(rdrCustomers.GetString(1))

Loop

rdrCustomers.Close()

If cnn.State <> ConnectionState.Closed Then

cnn.Close()

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub