Function GetREcors()

Dim rst As Recordset

Set rst = New Recordset



rst.Fields.Append "Name1", adVarChar, 50
rst.Fields.Append "Name2", adVarChar, 50
rst.Fields.Append "Name3", adVarChar, 50
rst.Fields.Append "Name4", adVarChar, 50
rst.Fields.Append "Name5", adVarChar, 50

rst.CursorType = adOpenDynamic
rst.Open

For i = 1 To 30

rst.AddNew
rst.Fields(0) = "0Pole" & i
rst.Fields(1) = "1Pole" & i
rst.Fields(2) = "2Pole" & i
rst.Update
Next i

rst.MoveFirst

For i = 1 To rst.EOF

Debug.Print i

Next



For i = 1 To 30

rst.Move (i)

Next i


Set rst = Nothing



End Function