>Thank for your example, will test it out.
>
>However, I using free table without the .dbc file,
>can I just open the dbf file and pack it ?

The following worked for me with a free table. However, I had trouble when there were spaces in the path of the Data Source:

Option Explicit

Sub Main()

    Dim cnConn As ADODB.Connection
    Dim cmdCommand As ADODB.Command

    Set cnConn = New ADODB.Connection
    cnConn.Open "User ID=;DSN=;" & _
         "Cache Authentication=False;Data Source=""C:\Temp\"";" & _
         "Password=;Provider=""VFPOLEDB.1"";Collating Sequence=MACHINE;Mask Password=False;Mode=Share Deny None;" & _
         "Extended Properties=;Encrypt Password=False;"
    
    Set cmdCommand = New ADODB.Command
    cmdCommand.CommandType = adCmdText
    Set cmdCommand.ActiveConnection = cnConn
    cmdCommand.CommandText = "SET EXCLUSIVE ON"
    cmdCommand.Execute
    cmdCommand.CommandText = "PACK TestDelete"
    cmdCommand.Execute

End Sub