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.