Private Sub CompactDeleteData(ByVal TABLE As String)
 
        Dim cmdCompact As New SqlCeCommand()
        cmdCompact.Connection = ConnectionCompact()
        cmdCompact.CommandText = ResSQLCompact.DeleteAll ' DELETE FROM @Table
 
        Dim id = cmdCompact.CreateParameter()
        id.DbType = System.Data.DbType.String
        id.ParameterName = "@Table"
        id.Value = TABLE
        cmdCompact.Parameters.Add(id)
        cmdCompact.Prepare()
 
        MsgBox(cmdCompact.ExecuteNonQuery)
 
    End Sub