Do While i < spinneradet.SelectedItem '
cursor3 = sqlfleet.ExecQuery("SELECT ID FROM tblfleet")
If cursor3.RowCount > 0 Then
For i = 0 To cursor3.RowCount - 1
cursor3.Position = i
Dim NewID As Int
NewID = cursor3.GetInt("ID")
Next
End If
NewID = NewID +1 ' add 1 to the ID number to make a new ID field
sqlfleet.ExecNonQuery("INSERT INTO tblfleet VALUES('0','"&(lblmonthly3.Text/spinneradet.selecteditem)&"','" & cursor4.GetString("aircraft") & "','" & btnbuy.text & "','" & "0.0" & "','" & "TC-" & txtcountry.text & "','" & NewID & "')")
dbload3
i = i + 1
Loop