I Have To make a table with 670 Records

Ex.

0.0
0.5
1.0
1.5....

But I Dont Want to Fill These In by my self i want to write a simple program to do this one time but i cant get this to work

Code:
Dim intDepth As Integer
If intDepth < 335 Then
Data.Recordset.AddNew "Depth", intDepth
intDepth = intDepth + 0.5
Exit Sub
Else: End If
MsgBox "Done"
I Am Using A ADODC Control Plz Help