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
Atenciosamente,
Vinicius Ribeiro