Cursor2 = SQL1.ExecQuery("SELECT cepnumarasi FROM CEPNUMARALARI")
For i = 0 To Cursor2.RowCount - 1
Cursor2.Position = i
Cep = Cursor2.GetString("cepnumarasi")
Cursor3 = SQL1.ExecQuery("Select * FROM CEPNUMARALARI WHERE cepnumarasi = '" & Cep & "'")
Cursor3.Position = Cursor3.RowCount -1 ' selektiere den Position
SQL1.ExecNonQuery("UPDATE CEPNUMARALARI SET sayac = " & 0 & ", yenimsg = " & 0 & " WHERE cepnumarasi = '" & Cep & "'")
Next
Cursor1.Close
Cursor2.Close
Cursor3.Close