Dim Sql As String
Dim GSayi As Integer
Dim GVeri As String
Dim ADO_RS As ADODB.Recordset
GSayi = 1
Set ADO_RS = New ADODB.Recordset
SQL = "select * from [Tablo1]"
ADO_RS.Open SQL, CurrentProject.Connection, 3, 1
ADO_RS.MoveFirst
Do While Not ADO_RS.EOF
GVeri = GVeri & "point." & ADO_RS("X") & "_" & ADO_RS("Y") & "_" & ADO_RS("ETIKET") & Chr(126)
If GSayi = 3 Then
Exit Do
End If
GSayi = GSayi + 1
ADO_RS.MoveNext
Loop
Me.Metin9 = GVeri
ADO_RS.Close
Set ADO_RS = Nothing
if GSayi = 3 kodunu, GSayi = 30 yaparsan 30 tane veriyi aktaracaktır.