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
Forma Metin9 adında metin kutusu ve buton ekle. Butonun tıklandığında olayına aşağıdaki kodu ekle.