nasıl kullanacağınızı bilmiyorum ama eğer isimlendirme sistemi ulke_Sayı biçimindeyse sorgu for döngüsüyle dinamik olarak da oluşturulabilir
1 - referanslardan microsoft activex Data Object xx.x library eklenmeli
2 - aşağıdaki kod bir butona atanmalı
debug.print komutu immidiate ekranına yazar

Dim Sql As String

Dim ADO_RS As ADODB.Recordset

Dim Fld As ADODB.Field



Set ADO_RS = New ADODB.Recordset

SQL = "select * from [Ülke_Düzenle]"

ADO_RS.Open SQL, CurrentProject.Connection, 3, 1

For Each Fld In ADO_RS.Fields

If Left(Fld.Name, 5) = "Ülke_" Then

    SqlUnion = SqlUnion & " union " & _

                          " SELECT Ülke_Düzenle.sayı, Ülke_Düzenle.Otel_Adı, Ülke_Düzenle." & Fld.Name & " As [Ülke], Ülke_Düzenle.tutar " & _

                          " FROM Ülke_Düzenle " & _

                          " WHERE ((Not (Ülke_Düzenle." & Fld.Name & ") Is Null))"

End If

Next

Debug.Print Mid(SqlUnion, 7) & ";"