Forma Metin9 adında metin kutusu ve buton ekle. Butonun tıklandığında olayına aşağıdaki kodu ekle.

Dim Sql As String

Dim ADO_RS As ADODB.Recordset



Set ADO_RS = New ADODB.Recordset

SQL = "select * from [Tablo1]"

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

        ADO_RS.MoveFirst

        

        Me.Metin9 = ""

            Do While Not ADO_RS.EOF



                GVeri = GVeri & "point." & ADO_RS("X") & "_" & ADO_RS("Y") & "_" & ADO_RS("ETIKET") & Chr(126)



                ADO_RS.MoveNext

            Loop

            

    Me.Metin9 = GVeri & "_&lvl=15"



            

    ADO_RS.Close

    Set ADO_RS = Nothing