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
'=======================================================

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