Bu şekilde verileri combobox'a bağlamıyorsun sen. Yaptığın şey veritabanından çektiğin verileri Items.Add ile eklemek. Daha basit bir yöntemi var bu şekilde kullan:

Private cnn As MySqlConnection



Private Sub DonemleriYukle()

	Try

		Using cnn = New MySqlConnection(VT.BaglantiCumlesi)

			Using adapter As New MySqlDataAdapter("SELECT AnahtarDeger,DonemAdi FROM donemler WHERE Durum=1", cnn)

				Dim dt As New DataTable()

				adapter.Fill(dt)



				lueDonemler.Properties.DataSource = dt

				lueDonemler.Properties.ValueMember = "AnahtarDeger"

				lueDonemler.Properties.DisplayMember = "DonemAdi"

			End Using

		End Using

	Catch ex As MySqlException

		lg.LogEkle("frmUsbOlustur", "DonemleriYukle", ex.Message, ex.Number, Ortak.Kullanici.KullaniciId)

		MessageBox.Show("Dönemlerin yüklenmesi sırasında bir hata ile karşılaşıldı." + Environment.NewLine + Environment.NewLine + "Hata Mesajı : " + ex.Message, "Hata", MessageBoxButtons.OK, MessageBoxIcon.[Error])

	End Try

End Sub



'=======================================================

'Service provided by Telerik (www.telerik.com)

'Conversion powered by NRefactory.

'Twitter: @telerik

'Facebook: facebook.com/telerik

'=======================================================

NOT : Fazla vaktim olmadığından kendi programımdan kopyalayıp buraya yapıştırdım. Senin için önemli olan DataAdapter ile başlayan kısım yani :

Using adapter As New MySqlDataAdapter("SELECT AnahtarDeger,DonemAdi FROM donemler WHERE Durum=1", cnn)

				Dim dt As New DataTable()

				adapter.Fill(dt)



				lueDonemler.Properties.DataSource = dt

				lueDonemler.Properties.ValueMember = "AnahtarDeger"

				lueDonemler.Properties.DisplayMember = "DonemAdi"

			End Using