Visual Basic - ¿Cómo vacio una tabla?

Hola

Quiero vaciar una tabla y utilizo el siguiente codigo:

rs.movefirst
while rs.eof = false
rs.delete
rs.movenext
wend

En mi pc funciona muy bien pero al instalarlo en cualquier otra pc
manda el error 'invalid bookmark' despues de borrar algunos registros, y la tabla no se vacía. Modifique el codigo como sigue:

rs.movefirst
while rs.eof = false
rs.delete
if rs.eof = false then
rs.movenext
endif
wend

Pero el resultado es el mismo.

¿Alguien podría ayudarme?

una solucion....

execute "delete from tabla"

dim cn as connection
cn.open "Provider=Proveedor;Data Source="LugaryNombreBase;Persist
Security=False"
cn.BeginTrans
cn.Execute "Delete * from Tabla"
if err.number <> 0 then
cn.Rollbacktrans

else
cn.Commitrans
end if