Public Sub bayileridoldur()
	cmbbayiler.Items.Clear()
	Dim cmd As New SqlCommand("select * from bayiler", con)
	con.Open()
	Dim tbl As New DataTable()
	tbl.Load(cmd.ExecuteReader())
	con.Close()

	cmbbayiler.DataSource = tbl
	cmbbayiler.DisplayMember = "bayiadi"
	cmbbayiler.ValueMember = "bayiid"
End Sub