Respondendo a minha própria pergunta... :)

entrei na pagina de ASP www.aspbrasil.com.br e achei a resposta. Como acho que pode ser do interesse do pessoal resolvi postar aqui a resposta. Estah em ASP mas eh soh transformar pra VFP.

[ ]'s

Vinicius Ribeiro
--------------------

Título: Compactar DB
Autor:Marley Adriano

Data:23/2/2002


VC pode usar o Jet.
Ex:

Conexao1 = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=" & "c:\meubanco.mdb"

Conexao2 = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=" & "c:\backup.mdb"

set jro = server.createobject("jro.JetEngine")
jro.CompactDatabase Conexao1, Conexao2

if err <> 0 then
response.write "Erro na compactação :
" & err.description
else
response.write "Compactação realizada com sucesso!"
end if